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PREFACE 


This publication describes the internal 
logic of the IBM System/370 VS BASIC 
Processor. It is primarily intended for 
customer engineers and other technical 
personnel involved in program maintenance. 
Program logic is not necessary for the use 
and operation of the System/370 VS BASIC 
processor; therefore, distribution of this 
publication is limited to licensees who 
have the aforementioned requirement. 

This publication consists of the following 
sect ions: 

Section Is Introduction 

The "Introduction" presents a broad 
overview of the VS BASIC processor, its 
operation and its major components. 

Section 2: Method of Operation 

The "Method of Operation" section 
describes in HIPO format the functions 
that the VS BASIC processor performs. 
HIPO is a pictorial method for 
describing the function of a program. 

It shows the input, process, and output 
required to perform a particular 
function. 

Section 3: Program Organization 

The "Program Organization" section 
illustrates the flow of control from 
component to component. It contains a 
tabularized guide to the hierachical 
structure of the processor. 

Section 4: Directory 

The "Directory" serves as a guide to the 
PLM. It lists, in tabular form, the 
names of the components of the processor 
and where they are referred to in the 
"Method of Operation" section. 

Section 5: Data Areas 

The "Data Areas" section outlines in 
tabular and pictorial form the various 
data areas used by the processor for 
communication between components. It 
lists the displacements of the areas and 
shows how they look in storage. 

Section 6: Diagnostic Aids 

The "Diagnostic Aids" section contains 
information that is useful in isolating 
a problem and examining the contents of 
storage. 


Section 7: Appendixes 


The "Appendixes" section contains 
examples of the executable code produced 
by the VS BASIC compiler and the text 
elements produced by the scanning 
routines of the debug processor. 


Reference Publications 


It is assumed that the reader has a 
thorough knowledge of the VS BASIC language 
as described in: 


VS BASIC Language 
Order No. GC28-8303 


And the system under which VS BASIC will be 
running as described in one of the 
following publications: 


VS_BASIC 

Order No. SC28-8304 


VS,BASIC 

ci[s_Terminal,Useris_Guide 
Order No. SC28-8306 


VS_BASIC_for,VSPC: 
l£ENin§l_Oseris,Guicie 
Order ~No. ~SH20-9060“ 


VS,BASIC 

i^£ch_p£oqram§gr^s,Guide 
£or,os/ys t ~DOS/y§ 

Order No. SC28-8308 


Although not required, the following 
publication provides related information: 


YS.BASIC 

jns rallation_Re£eEence,Material 
Order No. SC28-8309 


If more detailed information is required, 
the reader should refer to the comments and 
coding in the System/370 VS BASIC processor 
listings. 
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SUMMARY OF AMENDMENTS 


NUMBER 2 


The "Introduction" section includes a brief 
discussion of what occurs when the TEST 
option is not in effect, and the error 
handling capabilities of the new ON 
statement and I/O error clauses in the VS 
BASIC run-time library. 

The "Method of Operation" section 
reflects changes to the Compiler Processing 
diagram and discussion .to show the new 
OPTION statement. The Compiler—Statement 
Processing diagram and discussion includes 
new statements INPUT FROM, PRINT TO and ON. 
The Run-time Processing diagram and 
discussion includes changes to the modules 
ICDKORGE, ICDKxSUB (x is D, G, or S) and 
ICDKERR. The Run-time Terminal I/O diagram 
and discussion incorporates changes to the 
modules ICDKINPT, ICDKPRNT, to reflect the 
new statements INPUT FROM and PRINT TO. 
Also, new data area BUFFAHED is 
incorporated to show the new buffered- 
ahead terminal input facility. The Run¬ 
time Record I/O diagram and discussion 
incorporates the new relative-record file 
capability and the implicit open for 
terminal files. 


NUMBER 1 


This edition includes VSPC as one of the 
systems that support the VS BASIC 
processor* The "Introduction" section 
includes a description of the VS BASIC 
executor* This description references the 
one for the TSO executor, as do the ether 
executor descriptions. The other sections 
of the book include updates for VSPC. 

The "Method of Operation" section has 
been replaced in its entirety, and the 
diagrams have been condensed tor usability* 
(The "Directory" shows new references tor 
the diagrams.) 

The "Data Areas" section has been 
amended to include the ESPACE control 


The "Program Organization" section has 
been amended to reflect the new entry 
points of the processor modules and flow 
of control to and from each entry point 
for the new VS BASIC statements, error 
handling capabilities and the new intrinsic 
function (CHR). 

The "Data Areas" section has been 
amended to include addition of new labels 
within the following data areas: PRG, 
VARCON, VFILTAB, ICDBIFTB and to the data 
areas directory. 

The "Diagnostic Aids" section 
incorporates the new error message 
identifiers for the library and executors. 
Also, the VS BASIC OS/VS System Abnormal 
termination code for object code 
incompatibility is given. 

Appendix A has been amended to include 
examples of the object code produced by the 
VS BASIC processor for the new VS BASIC 
statements, INPUT FROM, PRINT TO, ON, and 
changes to the code for OPEN, CLOSE etc. 
for the new error conditions. 


block* ESPACE is used by the run-time 
library I/O routines- Offsets m PRG have 
been changed to reflect the code* 


The "Diagnostic Aids" section includes 
requirements tor writing an APAR. 


"Appendix A" has been amended so that a 
description of the object code shows 
consistently the register-naming 
conventions used by the VS BASIC processor. 

Miscellaneous minor technical 
corrections have also been made throughout 
the book* 
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INTRODUCTION 


GENERAL J)E3CRIPTION 


The VS BASIC Processor is designed to 
operate in either an interactive or a batch 
virtual environment. The processor can be 
logically divided into four parts: an 
executor, a compiler, a library, and a 
debug processor. 


The executor serves as an interface 
between the system under which VS BASIC is 
running, and the other three parts of the 
processor. It insulates the processor from 
the system and permits it to operate 
without any dependence on the host system. 
The executor intercepts and relays any 
processor reguests for system services. 


The compiler is a fast, one-pass 
language translator that accepts source 
programs written in the VS BASIC language 
and translates them into object code that 
is suitable for loading and executing under 
a VS BASIC executor on a System/370 
machine. Optionally, the compiler will 
accept source code in long or short 
precision, permit the compilation to 
proceed into execution, store the object 
code produced, or produce object code that 
has been tailored to meet the needs of the 
debug processor. Since the compiler is 
reentrant, it can be installed in the link 
pack area making it available to a number 
of users simultaneously. 


The library contains run-time routines 
that assist in the execution of VS BASIC 
programs. In addition, it also contains 
routines that execute intrinsic library 
functions. 


The debug processor permits the user to 
set breakpoints in his program as it is 
executing, display the contents of his 
program variables, and to trace the flow of 
control through the program. It is 
available only under the TSO and CMS 
interactive systems. 

Under TSO and CMS a renumbering facility 
is available for renumbering VS BASIC 
source programs. The VSPC service program 
performs importing functions to include VS 
BASIC programs and data in the VSPC data 
base. Under CMS, a conversion facility is 
available to convert CALL-OS BASIC data 
files to a VS BASIC format. 


PieGRAMMING^SYSTEM^ENVlPONMENTS 


The VS BASIC Processor will operate in a 
variety of interactive and batch 
environments. They are: 


INTERACTIVE 


• TSO under an 0S/VS2 system that 
optionally supports VSAM. 

• CMS under a VM/370 system that 
optionally supports VSAM. 

• VSPC under 0S/VS2, 05/VS1, or DOS/VS 
system that supports VSAM, VTAM. 


BATCH 


• An OS/VS 1 system that optionally 
supports VSAM. 

• An 0S/VS2 system that optionally 
supports VSAM. 

• A DOS/VS system that optionally 
supports VSAM. 

• CMS under a VM/370 system that 
optionally supports VSAM. 


EQUIPME NT CON FIGU RATION 


VS BASIC in an interactive or a batch 
environment, runs on a System/370 Model 13b 
or larger. In a batch environment, VS 
BASIC runs on a System/370 Model 11b or 
larger. 


ST ORAG E RE QUIREMENTS 


The VS BASIC Processor requires 120K bytes 
of virtual storage under VSPC, 128K under 
OS/VS, 256K under DOS/VS, and a virtual 
machine size of 300K under VM/370 (CMS). 
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VS BASIC PROCESSOR OVERVIEW 


The VS BASIC Processor is made up of four 
components: the executor, the compiler, 

the run-time library, and the debug 
processor. The executor serves as an 
interface between the system under which VS 
BASIC is operating and the compiler (durinq 
compilation) or the library and debug 
processor (during execution). Unlike the 
other components, the executor is tailored 
to the system it operates in. Therefore, 
five versions of the executor are 
available^ one for VSPC, one for TSO, one 
for CMS, one for OS/VS 1 and OS/VS2 batch, 
and one for DOS/VS batch. The compiler, 
identical for all systems, takes source 
programs written in the VS BASIC language 
and translates them into executable object 
programs that are suitable for loading and 
executing by a VS BASIC executor. The 
run-time library, like the compiler, 
identical for all systems, assists in the 
execution of object programs. The library 
performs services such as evaluating VS 
BASIC intrinsic functions and completing 
the execution of VS BASIC statements either 
directly or through requests to the 
executor. The debug processor can be 
optionally invoked in the interactive 
environments of TSO and CMS. It permits 
the VS BASIC programmer to analyse and to 
monitor the execution of his source program 
and to examine its processing as it is 
being performed. 


VS BASIC EXECUTOR 


TSO VS BASIC Executor 


The operation of the TSO executor can be 
divided into three separate phases. The 
first (initialization) establishes and 
initializes data areas needed by the 
compiler and run-time library. The second 
(service call processing) handles 
requestsfor system services, including 
stream and record input/output. The third 
(special purpose processing) includes exit 
and termination routines. 

EXECUTOR INITIALIZATION : The VS BASIC 
executor receives control from the TSO 
Terminal Monitor Program or from the TSO 
EDIT Command Processor. The executor is 
passed, as a parameter, a pointer to a 
buffer that contains the user*s RUN 
command. When control is received, a 
workspace is prepared by issuing a GETMAIN. 
This workspace contains a register save 
area, a data storage area, and a buffer for 
formatted terminal output. It is accessed 
through a DSECT that is based on register 


13; therefore, any routines that are 
subsequently called will be able to use the 
save area when they receive control trom 
the executor. 

The executor then loads the TSO DAIP and 
PUTLINE/GETLINE/PUTGFT service routines, 
assuring that they will be available in the 
user's TSO region. The executor links to 
the TSO parse routine and passes it the 
pointer to the command buffer that it 
received originally. The PAFSE routine 
checks the command for syntax and returns a 
Parameter Description List (PDL) to the 
executor. 

The PDL is then analysed. The first 
item to be determined is the name of the vs 
BASIC program to be processed. It the 
program was just created under the EDIT 
command and is still in storage, the PDL 
contains the INLIST keyword, which, in 
turn, contains the address of the parameter 
list pointing to the name. If the INLIST 
keyword is not present the name of the 
program is in the command buffer. At this 
point, a header message is prepared using 
the program name and date and time 
information that was obtained trom the TIME 
and STIMER macros. This header message is 
then printed at the terminal by the TOUTPUT 
subroutine of the executor. SPIE, STAX, 
and STAE macros are issued to specify 
abnormal and special exit routine. (These 
routines are discussed further in the 
section "Special Purpose Subroutines.") 

The PDL is examined again. It the 
SOURCE option is found, or it the INLIST 
keyword had been found previously, the 
compiler is loaded into storage and a 
GETMAIN is issued for the user area. The 
GETMAIN is for the amount of storage 
specified in the SIZE option or for all the 
storage that is available up to a maximum 
of 510K, if the SIZE option has not been 
specified. The source statements are then 
moved into the user area one record at a 
time. 

As each statement is read, it is 
transformed into the following format: 


Source statement | | 

Statement (without trailing j | 

Length ♦ 2 blanks) j XM5' | 

i-1-«-1 

1 byte n bytes 1 byte 


If the source program is already in 
storage, it is not moved but converted 
inplace. The source statements are then 
placed into the user area* immediately after 
the user terminal buffer. When all source 
statements have been read a X f 01* is placed 
at the end of the last record. The number 
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of source lines and the number of bytes in 
the program are placed in the User Terminal 
Table (UTT) in the user area. The entire 
program is then moved to the end of the 
user area. The size of the available user 
area is reduced by the amount of space 
occupied by the source code. 

If the OBJECT option has been specified, 
and the GO and NOSTORE options have also 
been specified, a data set name is created 
by DAIR with the name entered by the user. 
This data set is then opened. The data set 
is read into the beginning of the user area 
and the unused portion of the user area is 
released by a FREEMAIN macro. Control is 
then passed to the part of the executor 
that will initiate execution of the object 
program. In cases where the option SOURCE 
has been specified or the option OBJECT has 
not been specified, and the executor is 
unable to find a corresponding source 
program, an object program, if found, will 
be executed instead. 


EXECUTOR SERVICE CALL PROCESSING : During 
compilation and execution, the VS BASIC 
processor obtains system services through 
the executor by means of its own unique set 
of service call macros. When issued by the 
compiler or library, the executor will 
interpret the call, suoply the requested 
service, and pass control to the 
appropriate processor or system routine, 
the service call (SERV) macros are: 


SVCO 
SVC1 
SVC 2 
SVC 3 
SVC 4 
SVC 5 
SVC 6 
SVC 7 

SVC 8 

SVC 9 
SVC10 
SVC11 
SVC12 
SVC13 
SVC14 
SVC 16 
SVC18 
SVC21 
SVC22 
SVC23 

SVC24 

SVC25 

SVC26 


Normal termination of execution 

Terminal output 

Terminal input 

Stream file output 

Stream file input 

Release storage 

Acquire storage 

Return from arithmetic 

interrupts {corapilation) 

Return from arithmetic 
interrupts (execution) 

Encode file name 

Stream file output and close 

End of compilation 

Time/Date function 

PAUSE statement processing 

Terminal input 

CHAIN statement processing 

Task CPU time 

Stream file open 

Stream file close 

Abnormal termination of 

execution 

Record* file input/output 
Record file open 
Record file close 


SPECIAL PURPOSE SUBROUTINES : Special 
purpose processing consists of various 
return routines that are called for either 
normal or abnormal returns or end of 
processing. The SVCRET routine returns 


control to the compiler after a request has 
been made for system services. The CLEANUP 
routine releases all resources before a 
final return is made to TSO following the 
completion of processing. The three exit 
routines, STAEEXIT, STAXEXIT, and SPIEEXIT, 
process unusual or error conditions: too 
little disk space, for the outout data set, 
attention interrupts, and program checks 
respectively. 


0S/VS1 and 0S/VS2 Batch Executor 


The operation of the OS/VS executors is 
similar to that of the TSO executor. The 
major difference between them is the 
presence of a CONTROL data set on punched 
cards, that contains RUN commands as 
records and the need for JCL to support all 
data set references. 


The OS/VS batch executor receives 
control from the operating system, and, 
after a GETMAIN is issued tor the 
executor's workspace, the SYSPRINT and the 
CONTROL data sets are opened. The RUN 
commands in the CONTROL data set are 
processed one at a time. The batch 
executor has its own code (CSECT CNTRLREC) 
to scan the RUN commands for a valid 
program name, valid file names, and to 
analyse the requested options tor both 
compilation and execution. After scanning 
the RUN command, the executor opens all the 
requested files (source/object program, 
input data, output object program). All 
files with appropriate JCL must be 
available to the executor in either the job 
stream or as cataloged data sets. 

Depending upon the options specified, 
either the compiler or the run-time library 
is loaded and the remainder of the 
executor's initialization is completed. 


The service .call processing of the batch 
executor is identical to that of the TSO 
executor except that all requests for 
terminal input and output (SVC1 and SVC2) 
are translated into reads from the input 
file (as designated on the RUN command) and 
writes to SYSPRINT. 


The special purpose subroutines are also 
identical to the TSO routines with the 
exception of the terminal oriented 
functions (that is, there is no STAX 
handling code and PUT/GET is not loaded or 
deleted)• 
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CHS VS BASIC E xe cutor 


Functionally, the VS BASIC executor under 
CHS is similar to the executor under TSO. 
The real differences occur in the way in 
which CHS processes requests from the 
executor; however, even these are minimized 
since CHS recognizes the OS GETMAIN, 

FREEMAIN, and BSAH macros. 

The VS BASIC executor receives control 
from the CMS command processor, and is 
passed a parameter list containing double 
word entries for the filename, left 
parenthesis, and the options. The SIZE 
option cannot be specified under CMS as all 
available storage in the user’s virtual 
machine up to a maximum of 510K is obtained 
immediately and the components of the user 
area are stored contiguously. 


VSPC Executo r 


The VSPC executor performs initialization, 
service call, and special purpose functions 
similar to the TSO executor. However, the 
VSPC subsystem issues all system service 
requests and provides access to virtual 
storage for VS BASIC. 

INITIfrLI ZAT IQN: When the executor receives 
control, VSPC passes it a pointer to the 
perterm communication block (PTC), which 
contains the information required to 
process a user’s program. The PTC request 
code field tells the executor whether to 
compile or execute a program or whether an 
asynchronous interrupt occurred during 
program processing. The request codes are 
IBEGIN, IBGNX, and IASYNC, respectively. 

The information in the PTC includes 
initialization values for the communication 
area, workspace header, and UTT. For 
compilation, the executor moves the source 
program to the end of the user’s workspace 
and calls the compiler. 

&ERVICS^CALL^PROCESSIfiG: The execut or 
issues the VSPC ASUSRQ macro to obtain 
system services. The request code name 
with the macro identifies the specific 
request. The request codes used by the 
VSPC executor are grouped below according 
to the type of service request: 

• VSPC Library Access — DCLOSE, DFNCDE, 
DO PEN, DREAD, DRESET, DWRITE 

• VSAM Library Access — VCLOSE, VDEL, 

VOPEN, VREAD, VRESET, VREWRT, VRREAD, 
VROPEN, VTCLS, VWRITE 

• Terminal Services — TDELAY, TWRITE, 
TWRTPD 


• Workspace Management — WCHAIN, WDUMP, 
WENDC, WENDR, WEXIT, WFREEM, WGETH 

• Host System service — HACCT, HSYSLG, 
HTIME 

Since the VSPC subsystem can relocate the 
workspace before returning to the VS BASIC 
executor, the executor checks the workspace 
address in the PTC. If relocation 
occurred, addresses and relocatable 
registers are adjusted as necessary before 
returning to the processor. 


DOS/VS Batch E xecutor 


The DOS/VS executor is similar to the OS/VS 
executor. There is no separate CONTROL 
file, and, in addition, both the source or 
object programs as well as the input data 
file must be made available to the executor 
through SYSIPT. 

The job stream on SYSIPT consists of RON 
commands similar to the OS/VS RON commands 
in the CONTROL data set; however, an * is 
used in place of the program name. The 
input file name is followed by the source 
or object program, which, in turn, is 
followed by the input data, if any. The 
end of the source program is delimited by 
an identifier card that contains a blank in 
columns one and three and a slash in column 
two. 

The DOS/VS executor uses DTFDI and DIMOD 
for the system files SYSLST, SYSPCH, and 
SYSIPT. DTFCP and CPMOD are used for all 
stream input/output files. 


VS BASIC COMPILER 


The VS BASIC compiler is reentrant and 
one-pass. Reentrant means that one copy of 
the compiler can be shared by many user’s 
programs in different stages of 
compilation. This results in an important 
saving of time, since, during a page 
change, the compiler code need not be 
written out; a new copy of the compiler can 
be read in when needed. This is 
accomplished by not allowing the compiler 
to modify itself in any way and by storing 
all variables and tables used during 
compilation separately in the user area. 
One-pass means that the compiler makes only 
one scan through the source statements to 
produce executable object code rather than 
going over the source statements many times 
before the object code is produced. 
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The VS BASIC compiler is organized into 
three processing phases: compiler 
initialization, statement processing, and 
run-time initialization. 


Compiler Initialization 


Compiler initialization is the first and 
shortest phase of compilation. This phase 
reallocates the user area into a form 
required by the compiler and initializes 
values in order to start the compilation 
process. A single module, ICDJCMPA, 
handles the operation of this phase. 

Figure 1 illustrates the user area before 
and after the restructuring has taken 
place. 

The executor creates a user area that 
contains, initially, a communications 
region and a terminal buffer (for TSO and 
CMS) or an output buffer (for OS and DOS 
batch) at the top (low storage addresses) 
and the VS BASIC source program at the 
bottom (high storage addresses). ICDJCMPA 
takes the intervening space and allocates 
it into fixed blocks. 

If storage is exceeded, the compilation 
terminates. The blocks are placed in the 
user area so that the blocks that are 
required for both compilation and execution 
are near the top, and the blocks that are 
required only for compilation are near the 
bottom of the user area. The blocks near 
the bottom can be easily overlaid by blocks 


that are required only for execution. 

These blocks are allocated by the run-time 
portion of the compiler. The unused 
portion of the object area, the overflow 
area, the work area, the compiler tables 
area, and the source code are replaced or 
released at the end of the compilation. 
Array storage is allocated at the beginning 
of run-time execution. Since VS BASIC does 
not permit data initialization of arrays, 
all that is needed during compilation is to 
determine the amount of array storage 
required and the offset of a particular 
array in the eventual array area. 

ICDJCMPA initializes the blocks in the user 
area as follows: 

• Initializes data entries in the 
communications region to enable 
interactions between the compiler and 
executor. 

• Initializes the values that are 
required by the compiler. The area 
used for program constants and 
variables, will be initialized to zero 
or blank, as required by the data type. 

• Initializes tables for the start of 
compilation. 


Statement Processing 

The bulk of the compilers processing time 
is spent in the statement processing phase 


User Area (before 
compiler initialization) 

r —— — — .. 

Communications Region 


Terminal Buffer 


Source Program 


PFG-->, 


User Area (after 
compiler initialization) 

i- 

| Communications Region 


VARCON—> 


OBJAREA-->f 


PRGA—> 


Terminal Buffer 


Save Areas 


Compiler and Run-time 
Tables 


Variable and Constant 
Area 


Object Code Area 


Overflow Area (2K) 


Work Area (4K) 


Compiler Tables 


Source Program 


4K 


Figure 1. Structure of the User Area before and after Compiler Initialization 
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of operation. Statement processing 
consists of translating VS BASIC source 
statements into executable object code. 

The statement processor control routine, 
ICDJCTL, identifies each statement and 
passes control to the appropriate statement 
processing routine. 


The compilation of any DATA, EXIT, FORM, 
or Image statements encountered in the 
program is deferred until the end of 
compilation, when control is transferred to 
the deferred compilation routine ICDJDEFR. 


During their operation, the statement 
processing routines may call other service 
and utility routines that evaluate 
expressions (ICDJFMLA) , scan source 
statements for variables (ICDJSCN) , or 
perform conversion of numeric constants 
(ICDJCONF) . The object code emitted by the 
statement processing routines is placed, 
sequentially, into the object code area as 
it is produced. The code is of two types. 
The first type contains all the code 
necessary to completely execute the source 
statement. The second type, however, does 
not; it contains a branch to a run-time 
library routine that will complete the 
execution of the statement. 


When a statement processing routine has 
completed processing a source statement, 
control is transferred back to the control 
routine, which begins the compilation cycle 
over again. When it receives control, 
ICDJCTL first determines the line number of 
the statement to be processed and locates 
the address in the object code area for the 
resultant translated code. It keeps a 
table for the line numbers with 
displacements to the corresponding object 
code. ICDJCTL also removes blanks that 
have no special significance. After the 
blanks have been removed, the control 
routine determines the type of statement it 
is handling and’ the location of the 
processing routine that will translate it. 
ICDJCTL then transfers control to the 
processing routine. After the last 
statement has been translated, control is 
transferred to the run-time initialization 
phase of the compiler. 

If the TEST option is specified under 
TSO or CMS, each compiler statement 
processing routine inserts additional code 
to transfer to the debug processor before 
executing the normal object code produced. 


Compiler Run-Time Initialization 


The run-time initialization phase of the 
compiler begins by restructuring the user 
area for execution, if no errors were 
detected during compilation. Here, the 
compiler routine ICDJRUNA together with the 
library routine ICDKORGE handle run-time 
initialization. If any errors were 
detected during compilation, ICDJRUNA 
transfers control to the executor to print 
out any diagnostic messages and, tor most 
errors, to terminate processing. 

Otherwise, data areas in the PRG section of 
the user area that are used only during 
compilation are replaced by data areas that 
are used only during execution. ICDJRUNA 
passes control to the executor indicating 
the end of compilation. The executor 
releases the VS BASIC compiler (TSO only) 
and transfers control, after loading it, to 
the run-time library initialization routine 
(ICDKORGE) to begin execution of the object 
program. 


VS BASIC Run-Time Library 


After completion of the compiler run-time 
initialization, control is passed, by the 
executor, to the run-time library 
initialization routine, ICDKORGE. ICDKORGE 
restructures the remainder of the user 
area. The unused portion of the object 
code area, the overflow area (if not used), 
the work area, the compiler tables, and the 
source program are replaced by array 
storage and disk buffers. Figure 2 
illustrates the restructuring of the user 
area before and after run-time 
initialization has taken place. 

In addition, if the TEST option has been 
specified, ICDKORGE calls ICDBLDTB to build 
tables for use by the debug processor when 
execution is begun. 

Execution of the object code begins at 
the first executable statement and 
continues sequentially until the end of the 
program is reached. If the TEST option is 
in effect, code at the beginning of each 
executable statement transfers control to 
the debug processor. If the TEST option is 
not in effect, code at the beginning of 
each executable statement establishes 
addressability for that statement, and 
monitors attention interrupt processing. 
Code for statements that were completely 
compiled is executed directly; code for 
statements that were not completely 
compiled contains branches to the 
appropriate library routine. 
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Figure 2. Structure of the User Area before and after Pun-Time Initialization 


The run-time library routines can be 
grouped into three types. The first type 
are routines that complete the Execution of 
a VS BASIC statement. The object code for 
the statement contains a link to the 
run-time library, which returns to the 
object code after its processing is 
complete. The second type of routine 
evaluates a library function. The object 
code for the function reference contains a 
link to the library routine that evaluates 
the requested function. The third type of 
routine provides services for the function 
reference contains a link to the library 
routine that evaluates the requested 
function. The third type of routine 
provides services for the other types of 
routines. 


The library also handles errors that 
occur during execution- Arithmetic 
interrupts are passed to the executor which 
returns control to the library- Execution 
errors are handled by the library routine 
| ICDKERR. This routine normally prints out 
the corresponding messages and passes 
control to the executor to terminate 
execution. 

However, the user, through the use of 
the ON statement or I/O error clauses, can 
specify a routine to which control is 
passed if certain errors should occur- 

When the code for the STOP or END 
statement is reached under normal 
circumstances, control is transferred to 
the executor to terminate execution 
normally. 


VS BASIC Debug Processor Operation (TSO and 
CMS only ) 


Whenever the TEST option has been 
specified, the compiler and the run-time 
library perform initialization and emit 
code in preparation for the operation ot 
the debug processor. The compiler places 
code that will branch to the debug 
processor at the beginning of each 
translated executable statement. The 
routine ICDBLDTB builds tables ot 
information that debug will refer to during 
its processing, when control is 
transferred to the object code and the 
branch to debug is present, debug begins 
executing. On the first branch, the user 
is requested to enter debug commands. As 
the commands are received, they are 
processed in two phases: scan and obey. 

The scan phase is controlled by a central 
dispatch routine, ICDSCAN, which obtains 
the command and calls ICDDSCAN to transfer 
control to the particular routine that will 
actually carry out the scanning. Once the 
command has been scanned, control is passed 
to the routine, ICDOBEY, that will cause 
the command to be executed. Linking the 
processing of these two routines together 
is a monitor routine, ICDONITR, which 
updates the communications region, 
processes some statements, and issues trace 
messages. 
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Renumbering Facility 1RENUM Subcommand) 


The renumbering facility interface routine 
ICDQRNME is invoked as an exit routine of 
IKJEBHRE (RENUM subcommand of EDIT) when it 
finds a valid renum command for a VS BASIC 
data set. The VS BASIC RENUMBER routine is 
passed the renumbering values, the 
in-storage data set, its size and 
attributes. To perform the renumber 
operation two passes of the in-storage data 
set are required. The first pass builds a 
number table that contains the existing 
line numbers and each corresponding new 
line number. The second pass allocates a 
new in-storage data set that will contain 
the renumbered source, then each line is 
copied to a buffer with the new line number 
replacing the old one. This buffer is 
passed to a scanning routine (ICDQRNMS) to 
check for statement number references which 
are replaced by the corresponding new line 
numbers from the number table. 


ICDRNMS is passed an input buffer 
containing the source statement, a work 
area and an output buffer. Blanks are 
squeezed from the input buffer to allow 
scanning. Then the squeezed source 
statement, now in work buffer 1, is checked 
for statement number references and when 
found they are replaced by the new line 
numbers in the number table. The updated 
and squeezed source, now in work buffer 2, 
is then expanded into the output buffer by 
comparing the original record with the 
squeezed record to insert blanks where 
required. 

The updated line then is placed in the 
new in-storage data set. On successful 
completion the in-storage data set size and 
location are updated to point to the new 
in-storage data set. On exit to IKJEBERE 
the number table and unused in-storage data 
set are freed. ICQRNME supports both fixed 
length and variable length records in the 
in-core data set. Standard line numbers 
are in* columns 1-5 of the statement. For 
nonura data sets, the line number must start 
in column 1 and be any length up to a 
maximum of 9 digits. If the first record 
of a fixed format, nonum data set, does not 
have a valid line number on the left of the 
record, the program assumes the line number 
is 8 bytes long and is at the end of the 
record. This provides for conversion of 
TSO ITF BASIC data sets which are fixed 
length format and data sets created and 
numbered using IEBUPDTE (or a similar 
offline utility that renumbers fixed length 
records in the last 8 bytes of the record.) 


CMS File Conversion Utility (ICDLUTIL) 


The user invokes the conversion utility by 
issuing the name of the utility (ICDLUTIL) 
as a CMS command. The command includes the 
names of the files to be converted. CMS 
processes the command and builds a 
parameter list of the file names, which it 
passes to the conversion utility. A STATE 
macro is issued for each file on the list 
to determine whether the file exists. It 
the file exists, it is checked to determine 
if the file contains fixed-length records 
(F) with a logical record length of 80. 

All other types of files are invalid as 
input to the conversion utility. 


A FILEDEF command is issued for each 
file and an attempt is made to open them. 

If the files can be successfully opened, 
corresponding output files are defined and 
opened. After this is done, the first- 
record is read in. The length of the 
record is obtained from the first four 
bytes and the end-of-block (EOB) address is 
calculated. The address of the output 
buffer is obtained and an end-of-block 
address is calculated for it. The first 
four bytes of the output buffer are 
reserved for the record descriptor word 
(RDW). 


The utility can now begin processing the 
record. Data is obtained beginning at the 
seventh byte of the record. It the data is 
character, it is moved from the input 
buffer to the output buffer one byte at a 
time. Character strings that are longer 
than the output buffer will be split and 
placed in succeeding records. If the data 
is arithmetic, it is loaded into 
floating-point register 2 (in either sinqle 
or double precision) • The address of the 
corresponding conversion format is loaded 
into general register 2 and the run-time 
conversion routine (TCDKCNVT) is called to 
convert the data. If the converted string 
is too long for the output record, it is 
not split. However, a varying record that 
is shorter than the maximum record possible 
is placed in the output record. The RDW is 
calculated before the PUT routine is called 
to write the record. When the input record 
is completely converted, the QSAM GET 
routine obtains the next record in the 
file. Processing continues until all the 
records are converted. When a file is 
completely converted, it is closed and, the 
next file in the parameter list is obtained 
and converted. Processes stops when the 
last file has been processed. 


16 



Licensed Material - Property of IBM 


METHOD OF OPERATION 


THE HIPO TECHNIQ UE 


HIPO is a method for graphically describing 
the internal functions of a program without 
regard for the way in which the functions 
are implemented or for the physical 
organization of the program. A HIPO 
package contains a visual table of contents 
and a set of method of operation diagrams 
illustrating the functions of a program, in 
this case the VS BASIC processor. The 
visual table of contents shows the contents 
of each diagram and how it is related to 
the others in the set. The method of 
operation diagrams are grouped by function. 

The method of operation diagrams 
themselves are divided into four distinct 


areas of information: input, process, 
output, and extended description. The 
input information, on the left side of the 
diagram, describes the input to the process 
or function being described. The process 
information, the central portion of the 
diagram, describes processes that make up 
the function. The output information, on 
the riqht side of the diagram, illustrates 
the output from the process. The extended 
description information below the diagram 
is used to provide additional detail or to 
outline how the function was implemented. 
This section also contains references to 
the module that performs all or part of the 
function involved and any references within 
the rest of the PLM where additional 
information may be found. 


Method of Operation 17 



Licensed Material - Property of J3M 


VS BASIC Processor: Method of Operation Contents 
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IC Dx EXEC fx is P. 0. W. Y* or 2 depending on the s y stem. See Section 1 

for description of the system-unique executors.) 

1 The executor obtains a work area for its use and determines 
the initialization required from user-request options and/or 
the system environment. The interrupt-handling environment is 
set up depending on the system. The VS PC subsystem, however, 
provides this function for VS BASIC. The user's workspace is 
obtained and initialized. The source program is set up at the 
end of the user's workspace in the following edited format. 
Trailing blanks are removed; character-count and statement-end 
indicators are inserted. The end of program is indicated by a 
character count of one (X'01*). While setting up the source to 
be compiled, the executor determines the number of statements 
and the number of bytes in the source program. The information 
is placed in the User Terminal Table (UTT) in the workspace. 
The compiler is loaded, if necessary, and given control after 
initialization. (In CMS and VSPC, the compiler was loaded with 
the executor. Also, the CMS executor issues a GETMAIN if the 
DEBUG processor is needed.) 

2 The executor handles service requests from the compiler for 
writing error messages, releasing storage, and terminating 
compilation. Requests are via the SERV macro instruction. The 
SERV number in register 0 indicates the particular service 
required. The executor relays the request to the system and, 
if required, returns system information. 

All service numbers (0-26) and their functions are listed in 
Section 3 with the executor entry points. [ICDxEXEC,SVCRET] 

3 After normal end of compilation, the compiler issues SERV 
request (11) to the executor. (In TSO, the executor then 
deletes the compiler. In CHS, it overlays the compiler if 
necessary.) If STORE option is in effect, the executor writes 
out the workspace area, which is stored as the object file. If 
mode is RON, the system/subsystem branches to the object code 
through ICDKORGE • (See step 5.) 

If severe source errors were noted during compilation, the 
compiler issues SERV reguest (0) to terminate the VS BASIC 
processor. See step 7. (ICDxEXEC] 

4 The executor handles interrupts for program checks that occur 
in compiling or execution. It passes control through the 
system to the error handler in the compiler or run-time 
library. If a program check occurs in the executor itself, 
processing terminates without attempting error recovery. 

During execution, asynchronous interrupts that result from 
system services are handled by the corresponding service 
routine. See step 6. [ICDxEXEC] 

5 Before execution of an object program, the executor ensures 
the VS BASIC workspace is initialized with execution values in 
the communication area and in the UTT. If a just-compiled 
program is to be executed, the workspace from compilation is 
reinitialized. If an object program which had been stored is 
to be executed, the workspace must be obtained and set up. 

(The VSPC subsystem loads the workspace before calling VS 
BASIC.) The executor also checks for extended precision and 
for the CHAIN parameter. If CHAIN was used, the executor uses 
system/subsystem services to move the chained program to the 
workspace. 


Diagram 2 (Part 2 of 3). Executor Processing 
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If workspace relocation is necessary (that is, the location is 
different from the compiled address), the executor performs 
the relocation. The executor gives control to the 
initialization routines of the run-time library (ICDKORGE). 

See Diagram 5. [ICDxBXEC] 

6 While the object program executes, its requirements for files, 
I/O, time of day, or program chaining all result in a SERV 
macro instruction. The object code contains a call to a 
library routine which, in turn, issues the SERV call to the 
executor for the particular request. The executor's service 
routines generally interpret and relay the information for the 
request to the system/subsystem. After the system/subsystem 
returns control to VS BASIC, the executor analyzes results of 
the service request and sets indicators for the run-time 
library. Then, it returns control to the library routine. For 
a listing of service routines, see Section 3: Program 
Organization. [ ICDxE XEC] 

7 If a program check in the VS BASIC processor occurs, the 
executor is called via SERV (23). Any data in the buffer is 
written and an error message is issued. SERV (23) terminates 
VS BASIC. 

Por normal termination, the executor is called via SERV (0). 
Any remaining data is written out by the executor or (if VSPC) 
by the subsystem. Trailer messages are written if batch 
processing is in effect. All system resources are released. 
Return is to the system/subsystem. [ICDxBXEC] 
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Diagram 3 


The VS BASIC workspace area not previously allocated by the 
executor is allocated in 4K blocks. The communications region 
is initialized. The current Release number is set up and, if 
the first statement is OPTION, switches are set up accordingly. 
The absolute save area, and the variable/constant areas 
(VARCON and VARC0N1) are established. Initial code is placed 
in OBJAREA. The object code overflow area (4K bytes) is set 
up. Long/short precision switches are set, and data areas are 
initialized. Control is passed to ICDJCTL for statement 
processing. [ICDJCMPA] 


The statement-processing control routine (ICDJCTL) receives a 
pointer to the character count at the start of the first 
source line, ICDJCTL handles initial processing for the line 
and then determines the statement type from the verb. It sets 
the SRCPTR in register one to the end of the keyword. 

Whenever a DATA, EXIT, FORM, or :ioage statement occurs 
ICDJCTL passes control to the ICDJDIMG routine for initial 
deferred-statement processing. The statement pointer is placed 
on the appropriate LINETAB chain. Processing for the next 
statement is begun via the ICDJCEND routine. For all other 
statement types, the verb table (VBTAB) is searched for the 
address of the routine to produce the corresponding object 
code. That routine is given control. 

If an error occurs, the statement processing routine requests 
error handling by calling ICDJERF. Compilation then either 
terminates or the statement processing routine completes its 
operation after an error message is printed. 

Before passing control to ICDJCEND for end of statement, the 
statement processor updates SRCPTR to the character count 
preceding the next statement. ICDJCEND returns to ICDJCTL to 
begin compiling the next statement. 

[ ICDJCTL,ICDJDIMG,ICDJCEND ] 

If the end of the source is reached without processing an END 
statement, ICDJCTL calls ICDJERR to send a warning message. 
This condition is noted when, on entry to ICDJCTL, the lines 
already processed (CNOLINE) is equal to the total lines of 
source (NOLINE). In this case, ICDJCTL passes control to 
ICDJEND (module ICDJDEFR) to supply the object program's 
ending code as if an END statement were being processed. The 
code produced is a branch to library routine ICDKRUNX (module 
ICDKERR) for normal execution end. [ICDJCTL,ICDJEND ] 


After end of source has been processed, the chains of deferred 
statements are processed. Information from the LINPTRS table 
is used to set the values of SRCPTR, OBJREG, and CURLINE. The 
routine which handles each chain sets up pointers for the next 
chain routine. The last chain processing routine (ICDJDATA) 
passes control to the compilers run-time initialization 
routine (ICDJRUNA)• Control passes via ICDJCEND. 

[ICDJCDEF,ICDJIMAG,ICDJFORH,ICDJEXIT,ICDJDATA] 


ICDJRUNA checks for compilation errors and checks for an 
incomplete FOB loop or DEF. If any of these conditions exist, 
ICDJERB is called. 

(Part 2 of 3). Compiler Processing 


24 



Licensed Material - Property of IBM 


Otherwise, ICDJRONA checks whether VARC0N2 was allocated. If 
it was the allocated VARC0N2 area is moved to the end of the 
object code. If TEST is in effect, several tables in PRGA are 
saved and moved next to VARCON2. ICDJRONA then calls the 
executor via SERV request (5) to release unneeded storage. The 
communication area and registers are set up for execution. 
(Compile-only area in PRG is replaced by run-time area.) 
Compiler exit is via SERV request (11) to the executor. 

[ICDJRUNA,ICDxEXEC] 


Diagram 3 (Part 3 of 3). Compiler Processing 
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Diagram 4 (Part 1 of 3). Compiler — Statement Processing 
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ICDJCTL checks whether additional space for the object code is 
required before processing the current statement. The 
condition exists if the value of object code pointer (OBJPTR) 
has already reached the address of the overflow area 
(BSOVFLW). If the initial area has been exceeded but the 
overflow area is still available, the object code area is 
expanded. If the overflow area is exceeded, compilation 
terminates through ICDJERR. ICDJERR issues SERV request (0) to 
the executor, and a size-error message is sent. [ICDJCTL] 

Processor Module s 

If the TEST option is in effect, both the statement number and 
linkage to the DEBUG routines is placed in the object area 
before the statement itself. Otherwise, code is generated to 
monitor attention interrupts and establish addressability. 


The LINTPRS entry is made by ICDJCTL for this statement. The 
entry includes the source line number and the address where 
the object code will be placed. Nonsignificant blanks, tab 
characters, or remarks (REM) in the source line are removed. 
The error exit is taken to ICDJERRT in ICDJERR either if a 
line number is invalid or if there is no line number. 

[ICDJCTL,ICDJLINE] 

ICDJCTL does a binary search of VBTAB for the address of the 
statement processor for the current verb. If the statement 
does not have a verb, LET is assumed. Remarks (REMs) result in 
processing of the next statement. 

If a DATA, EXIT, FORM, or :(image) statement is found, a 
LINTAB entry is added to the appropriate chain by the 
corresponding routine in ICDJNUCL. The statement is not 
compiled until the END statement is processed. 

For other statements, ICDJCTL calls the statement processor 
listed in VBTAB. (The modules are listed below with respective 
verbs. Section 3 lists individual entry points within the 
modules.) Statement processing includes: checking syntax, 
evaluating statement elements, checking for any required 
conditions, determining run-time links required, and 
generating the object code. Function references in a statement 
cause the intrinsic function to be provided as in-line code or 
as a run-time library linkage. The ICDJFUTS module generates 
the code and builds any argument lists required. Appendix A 
lists the object code for each statement type. 

[ICDJCTL,ICDJDIMG] 
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ICDJEBB 

5 


Diagram 


The nodules which contain statenent processors are: 


NODULE NAME 

STATEMENT 

ICDJIOVB 

CLOSE, GET, INPUT, INPUT FROM, PAUSE, 
PRINT (PRINT, FORM, Image), PRINT TO 
PUT, READ, RESET, RESTORE 

ICDJMATV 

MAT 

ICDJNUC2 

FOR, LET 

ICDJNUC3 

NEXT 

ICDJNUC4 

GOSOB, GOTO 

ICDJN0C5 

IF 

ICDJUSFN 

DEF, FNEND, RETDBN 

ICDJ VERB 

CHAIN, DIM, STOP, USE, ON 

ICDJVREC 

VSAM I/O 


The statement processing routines call ICDJERRP to handle 
syntax errors. More serious errors invoke ICDJERRN or 
ICDJERRT, which issue a service call (0) to the executor to 
terminate compilation and issue the error message with the 
line number. Five bytes of source code may be printed. Really 
fatal problems stop immediately via ICDJERRS, which issues 
service call 23. [ICDJERRN, ICDJERRP, ICDJERRT, ICDJERRS] 
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ICDKORGE 

^ A check is made to ensure the object program is compatible 

with the run-time library; if not, execution is terminated 
with a call to SVC23. The current line width (LINWIDTH) is set 
using the L#WIDTH value from the UTT. 

If the object program is chained, ICDKORGE sets the USE 
variable with the value provided by the chaining program. 

USEADDR points to the USE statement, and USEPARH points to the 
variable. The value provided by the chaining program is 
contained in RUN PARE in PRG. If RONPARM is null, the chained 
variable is set with blanks. 

To get storage needed for arrays, debug tables, a temporary 
DFT, or workspace, ICDxBXEC is called via SERV reguest (6) . 
Array storage is obtained if ARRBYT is nonzero. INITABL tells 
whether arrays are character or not. For character arrays, 
storage is initialized with blanks; for numeric arrays, 

I storage is set to zero. Attention monitoring code is moved to 
the beginning of PRG. If TEST is in effect, Debug tables are 
obtained and initialized by ICDBLDTB. Control is then passed 
to the object code. [ICDKORGE,ICDBLDTB] 


ICDKINTP. ICDKERR 

2 If an arithmetic interrupt is for exponent overflow, 
underflow, or zero divide, ICDKINTP requests an error message 
produced by ICDKERR. The floating-point register used by the 
instruction is set to maximum or zero, and SERT request (8) is 
issued to the executor for return to object program execution. 
If any other arithmetic interrupt occurs, ICDKINTP calls 
ICDKERR, which issues an error message and SERT request (23) 
for program termination. [ICDKINTP,ICDKERRR] 

NOTE: If an interrupt was not caused by an ATTN, the executor 
returns to the library for abnormal termination. [ICDKERRT] 

OBJECT CODE CALLS: The library routine needed for a service or function 
was determined by the compiler from conditions in the source. For 
example, file attributes determine whether object code linkage is to a 
record stream, or terminal I/O routine. 

ICDKIOTB-S trea m I/O 
ICDKTIOR-Record I/ O 
ICDKINPT, ICPKPRNT-Terminal I/ O 

3 The library routines do file checking in preparation for an 
open, close, reset, or I/O. Before any I/O operation, the 
library routines test IOSW flag for any attempt to do nested 
I/O. If the switch is already set to one, object code 
execution is terminated. Otherwise, the library routines issue 
the SERT request with the code in register 0 specifying the 
required operation. The executor relays the request to the 
system/subsystem and returns to the library routine after the 
operation. (If the workspace has been relocated during the 
service call, the executor adjusts accordingly addresses and 
registers used for addressing.) The library routine returns 
information to the object program. Depending on the request, 
data may be converted, formatted, and moved. Array element 
manipulation is handled. 
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ICDKxSOB (x is D, G f or S| 

4 The in-line functions require only one argument. These are 

ABS, RAD, SGN, DEG, INT, FAH, CEN. CNT requires no arguments. 

The math functions with one argument include ACS, ASN, ATN, 

COS, COT, CSC, DET, EXP, HCS, HSN, HTN, LGT, LOG, LTW, SEC, SIN, 
SQR, TAN. For math functions with a list of arguments, the 
first argument is the number of elements in the list. These 
are: RND, MAX, MIN, TIM, CPU, SUM, PRD, DOT. Character 
functions have an argument list, with the last element being a 
pointer to the return value area. These are: DAT, STR, JDY, 

CLK, IDX, KPS, KLN, RLN, CHR, NUM, and LEN. 


ICDjCERR 

5 The library routines receive the message number for an error 
condition in Register 0. If the user has not specified he 
wants control by means of the appropriate ON statement or I/O 
error clause, the error routine issues the message and a SERVO 
request for normal termination. Severe system errors always 
terminates with SERV request 23. [ICDKERRR,ICDKERRS,ICDKERRT] 

ICDKERR 

6 If a CHAIN statement is issued by the object code, the program 
is terminated and a service request (16) is issued to the 
executor to begin executing the chained program. [ICDKCHN] 

Normal end of object program results in a branch to ICDKRONX, 
which issues service request (0) to end VS BASIC processing. 

[ ICDKRUNY,ICDKRONX] 
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1 Open-The file scan routine (ICDKFSCN) is called to check 
whether the file is already open. The ICDKOPEN routine sets up 
a temporary DFT and issues SERV (21). The executor obtains 
storage (except in CHS) and sets up the permanent DFT and the 
buffer. Depending on the system, other control blocks may be 
reguired. [ICDKOPEN] 

2 Close-The ICDKCLOS routine uses the file scan module ICDKFSCN 
to get the correct file table entry. Then, if the output 
buffer has data in it, ICDKCLOS issues SERV (10) to write 
output and then close the file. Otherwise, SERV (22) is issued 
to close the file. If an error occurs ICDKERRS terminates 
execution. [ ICDKCLOS ] 

3 Input (GET)-A file scan is done by calling ICDKFSCN. If the 
file has not been opened, the ICDKOPN1 routine is called. The 
file is verified, and if it is not available for input, 
ICDKERRS prints a VS BASIC error message and terminates 
execution. Otherwise, the buffer is scanned for the next field 
and, if necessary, SERV (4) is issued for another record. When 
the library GET routine regains control, it calls the I/O 
conversion module ICDKETOF to move character data or to move 
and convert numeric data. If there are array arguments, the 
elements are converted singly. Input processing continues 
until the end of the parameter list is reached unless an error 
has occurred. Control is returned to the next instruction in 
the object code. [ ICDKGET] 

4 Output (POT)-A file scan is done by calling ICDKFSCN. If the 
file has not been opened the ICDKOPN1 routine is called. If 
the file is not available for output, a VS BASIC error message 
is issued and execution terminates. Arithmetic data is 
converted by the ICDKCNVT routine. Array elements are handled 
singly. The executor is called via SERV (3). Output processing 
continues until the end the parameter list or an error occurs. 
Control returns to the next instruction or to the exit address 
in the object code. [ICDKPUT] 

5 Reset at end-ICDKFSCN is called to check the file status. For 
a file previously opened for input, the reset to end is done 
by reopening the file in output mode via SERV (21). The data 
pointer is set to the end of existing data. Control returns to 
the object code. 

If the file was open for output already, control returns to 
the object code immediately. 

Reset at beginning-The file scan routine is called to check 
file status. A file open for input is repositioned to the 
beginning by a service request (3), if the file was open in 
output mode. Service request (4) is used if the file is open 
in input mode. [ICDKRSET] 


Diagram 6 (Part 2 of 2). Run-time Stream I/O 


Method of Operation 33 



Licensed Material - Property of IBM 


Input 


PRG 




Output 



Diagram 7 (Part 1 of 2). Run-time Terminal I/O 

34 

































Licensed Material - Property of IBM 


ICDKINPT, ICDK PRNT fPnit Record) 

1 Input-The routine sets the CNT field to zero initially. 

The subroutine BUFFCHK is used to obtain INPUT data. If data 
is available within BUFFAHED/ a 'line 1 is obtained from there 
and SBUFF is decremented. If data is not available in BUFFAHED, 
SERV(2) is issued to read a record from the terminal or, if 
INPUT FROM a filename is active, SERV(24) is issued to read a 
record from the file identified by INPUT FROM. The record ob¬ 
tained is scanned for semicolons (?), which are counted and 
the number placed in SBUFF. If SBUFF is non-zero, the excess 
'lines' are moved to BUFFAHED. If terminal input is not ac¬ 
cepted, SERV(14) is issued to reread the data. (The latter 
service request results in program termination in a batch en- 
| vironment, or if INPUT FROM a file is active.) The ARGSAV 
entries are decoded. If there is an array, the ARYDSC is lo¬ 
cated, and the correct number of elements to be read (row by 
row) is determined. Numeric data is converted by the ICDKETOF 
routine (module ICDKETOF). Character data is converted and/or 
moved by ICDKETF2. [ICDKINPT] 

2 Output-The FNTFLG is set to X^O 1 for unformatted, X , 01* for 
image, and to X 9 02 9 for FORM requests. Arrays are processed 
row by row and as if each element were a single variable. 
Arithmetic expressions, in an array or not, are processed as 
positive values, with the SIGN flag indicating positive or 
negative sign. ICDKCNVT converts the number to EBCDIC. If 
there is a FORM, the output routine ensures it is an 
arithmetic format. ICDKPRNT calls ICDKPLIN to move character 
expressions or blanks (for null string) to the internal print 
buffer. SKIP, POS, and X controls are processed. ICDKPRNT 
calls ICDKTOUT which issues SERV (1) to perform the output, or 
SERV(24) if PRINT TO filename is active. Pause statements are 
handled by ICDKPRNT, which issues the SERV(13). [ICDKPRNT, 
ICDKTOUT] 


3 


PRINT TO/INPUT FROM - Terminal files are handled by ICDKTIO, 
an entry point within ICDKPRNT. It maintains the two bytes 
within PRG (PRINTFNO and INPUTFNO) that control which PRINT TO/ 
INPUT FROM files are active (see ICDKTOUT and ICDKINPT above). 
If the referenced file is not open, ICDKVTIO, an entry point 
within ICDKVIOR, is called to activate that file. 


Diagram 7 (Part 2 of 2). Run-time Terminal I/O 


Method of Operation 35 



Licensed Material - Property of IBM 


Object Code 


Output 


Parameter List 
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of VFILTAB 


0 Indicate the mode in which 
the file is to be opened. 


1 Indicate whether a key is 
to be used. 


2 Indicate whether an unconditional 
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3 Indicate whether an open is 
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■*> 4 Ensure nested I/O does 

not occur. i — 

If nested I/O is attempted, 
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set its status. 


6 Open the file if it is not open. 


Executor 
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Via SERV 25 


7 Determine if the I/O requested 
is valid in the mode of the file. 


EOPNMODE 


ICrror Handling 
Routine 



I CD KERR Error 
Handling Routine 



8 Determine whether the last 
access to the file was a READ. 


IC'D KERR Error 
Handling Routine 


. 9 Enter the parameters for the 
I/O request into the file table 
for the file. 



1CDKERR Error 
Handling Routine 


10 Close file. 


Executor 
Close Routine 
Via SERV 25 
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Record-oriented I/O processing is controlled by nodule ICDKVIOR, which 
contains an entry point for each type of I/O request. Each of these 
entry points is followed by five bytes which describe the parameters of 
a particular request. These fields (which are moved into ESPACE), 
include: 

• Hode in which the file is to be opened (EOPNMODE). 

• The request code (EREQST) . 

• Mode in which request would be invalid (ERMODE) . 

• Length of parameter list (EPLINCR). 

• Placement of key in parameter list (EKE71 NCR) . 

These five bytes are followed by a variable number of bytes which define 
the sequence (and the number) of ICDKVIOR steps required for this 
request. For each request, the information is as follows. 




SEQUENCE 

OF 






I/O STATEMENT 

ENTRY POINT 

ST 

EPS EXECUTED 





OPEN FILE 

ICDKVO PN 

0, 

2, 4, 

5, 

13, 

6, 1 

9, 

24 


READ FILE 

ICDKVRD 

1, 

2, 4, 

5. 

6, 

7, 9, 

11 

, 12, 

13 



18 

, 14, 

15, 

22, 

24 




REREAD FILE 

ICDKVR RD 

1, 

3, 4, 

5, 

6, 

7, 8, 

9, 

11, 

13, 



14 

, 15, 

18, 

22, 

24 




RESET FILE 

ICDKVR ST 

1, 

3, 4, 

5, 

6, 

7, 9, 

12 

, 13, 

18 



14 

, 19, 

24 






WRITE FILE 

ICDKVWRT 

1, 

2, 4, 

5, 

6, 

7, 9, 

11 

, 13, 

15 



21 

, 22, 

16, 

17, 

18, 

14, 

24 


REWRITE FILE 

ICDKVRWR 

1, 

3, 4, 

5, 

6, 

7, 8, 

9, 

12, 

13, 



18 

, 14, 

20, 

15, 

21, 

11, 

22, 

16, 



17 

, 18, 

14, 

19, 

24 




DELETE FILE 

ICDKVDEL 

1, 

2, 4, 

5, 

6, 

7, 9, 

12 

, 13, 

18, 



14 

, 19, 

24 






CLOSE FILE 

ICDKVCLS 

1, 

3, 4, 

5, 

6, 

13, 1 

o. 

19, 24 

Prograa End 

ICDKVEND 

10 








Implicit open f 

ICDKVTIO 

0, 

2, 4, 

5, 

23, 

6 





| of terminal file 
ICDKVI OR 

Open: Whether the file is to be opened for input, output, all, and/or 
hold is determined from the parameter list [step 0]. The EOPNMODE flags 
are set accordingly. The o pen-is-valid indicator (EOPEN) and the IOSW 
are set on [steps 2,4]. The file table for this user is scanned to 
determine the file status; open, openable, or file table full [step 5]. 

I Any exit argument specified is placed in VEXITDISP [step 13]. The SERV 
(25) is issued to open the file, provided the file is not currently open 
[step 6]. Upon return from the executor, register 2 points to the file 
table, VFILTAB. The library open routine returns to the object code.[ICDKVOPN] 

Read: ICDKVRD processing checks the parameter list for a keyword and 
sets the EKETED indicator accordingly [step 1]. It also sets EOPEN to 
show open is valid for this file [step 2]. The file scan routine, 

ICDKFSCN, is called to check this user's file table to determine whether 
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the file is already open and whether the file table is already full 
[step 5]. If the file is not open, the library sends the open request to 
the executor [step 6]* After successful open, the library ensures that a 
read request is valid for the open mode of the file and that the file is 
KSDS if a keyword was specified [steps 7,9]. Any exit argument specified 
is placed in VEXITDSP [step 13]. If there was previously an I/O-error 
recovery attempt and the current read is sequential, the request cannot 
be filled [step 18]. In this case, an error message is issued and the 
error exit is taken. If there is no error and if the file was initially 
empty when opened, the file is closed and reopened [step 18]. Otherwise, 
the executor is called via SERV (24) [step 14]. 

If the read is successful, the minimum and maximum record lengths are 
set by the library [step 15]. If a list was read, the items are 
processed using FORM specifications or default data types and lengths 
[step 22]. The library returns to the object code unless an error exit 
was required [step 24]. [ICDKVRD] 

Reread; EKEYED is set to show that no keyword is present. The EOPEN 
flag is set to show that open is invalid [step 3]. ICDKFSCN is called to 
scan the user f s file table and determine the file status [step 5]. The 
library ensures the validity of the request; that is, the open mode must 
be compatible with the request, and the last access must have been a 
read [steps 7-9]. If the parameters include USING, the form indicator is 
set. Otherwise, indicators for defaults are set [step 11]. Any exit 
specified is noted in the file table [step 13]. SERV (24) is issued to 
the executor [step 14]. 

The library sets the maximum and minimum record lengths [step 15]. It 
also checks whether there was an I/O-error recovery attempt preceding 
this request. If there was, the error exit is taken [step 18]. 

Otherwise, any required list processing is performed using the form or 
default values [step 22]. Then, the library returns to the object code 
[step 24]. [ICDKRRD] 

Reset: If the parameter list contains a key, the EKEYED indicator is 

set accordingly [step 1]. The library ensures the request is valid for 
the open mode and, if the request is keyed, that the file is a KSDS 
[step 3]. If the file is not open, reset does not open the file [step 

1 6]. Reset does check for prior I/O error [step 18]. Any exit argument 
specified is placed in VEXITDISP [step 13]. SERV (24) is issued to call 
the executor. If a key was specified, it is used to fill the reset 
request? otherwise, the reset is to the beginning of the file. When the 
reset is completed, the library returns to the object code [step 24]. 

[ICDKVRST] 

Write: The library sets EKEYED to no key present [step 1]. The file 

scan routine, ICDKFSCN, is called to determine the file status [step 5]. 
If the file is not open and can be opened, the executor is called via 
SERV (25) to process open [step 6]. If open was successful, the open 
mode is checked for compatibility with the write request [step 7]. Then, 
the parameter list is checked for a USING clause [step 11]. The default 
and form indicators are set accordingly. The exit indicator is set 
depending on whether the parameters include an exit [step 13]. Minimum 
and maximum record lengths are set [step 15]. The unused part of the 
record area is cleared [step 21]. List items are processed using form or 
default values [step 22]. The length of the record to be written is 
determined [step 16]. For a KSDS, the key is moved to the file table 
[step 17]. The executor is called via SERV (24) (step 14]. After the 
write, the library returns to the object code [step 24]. [ICDKVWRT] 

Rewrite: If a key is provided, EKEYED is set on [step 1]. ICDKFSCN is 

called to determine the open status [step 5]. If the file is not open 
and can be opened, the executor is called [step 6]. The open mode is 
checked for compatibility with the rewrite request. If the last I/O 
request was not a read, the library ensures that the current request 
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specifies a key [step 8]. Also, if a key was specified, the file is 
checked for a KSDS [step 12]. The VEXITDSP field is set [step 13]. If 
there was an error recovery attempt on the previous reguest, this 
request is invalid (if nonkeyed) . If the file was empty when opened and 
the current request is not a sequential write, the file is closed and 
reopened [step 18]. The executor is called via SERV (24) if the read for 
rewrite can be done [step 14]. The write-for-update indicator is set in 
the file table [step 20]. Minimum and maximum record lengths are set 
[step 15]. If the object code specified a USING, the form values are 
set; otherwise, defaults are indicated. Then, the list items are 
processed to reflect form or default values [steps 11,22]. The length of 
the record to be written is determined [step 16]. For a KSDS, the key is 
moved to the file table [step 17]. After calling the executor via SERV 
(24) to handle the write for update request, the library returns to the 
object code [steps 14,24]. [ ICDKVRWR] 

Delete The object program parameter list is checked for a key [step 1]. 

The user's file table is scanned [step 5]. If the file is not open and 
can be opened, SERV (25) request is issued [step 6]. When the file is 
open, the library checks whether the request is compatible with the open 
mode and whether the file is a KSDS if a key was specified [step 7]. 'If 
no error conditions are found, the SERV (24) request is issued [step 
14]. After the delete request is completed, the library returns to the 
object code [step 24]. [ICDKVDEL] 

Close: If the file is not open when an implicit close is requested, the 
request is ignored. Any EXIT argument specified is placed in VEXITDISP 
[step 13]. If the file is open, the file is then closed via SERV (26) 

[step 10]. Before returning to the library, the executor removes file 
references in the file pointers table (TABLPTRS). The storage for the 
file table, record area, and any key area is released by the executor. 

Register 2 points to the temporary file table. When the library regains 
control, it locates the object instruction to regain control and passes 
control to it [step 24]. [ICDKVCLS] 

Program End: SERV (26) is issued to close any open files [step 10]. 

[ICDKVEND,ICDKVCLS] 

Implicit open for terminal filej_ The file is opened in the same way as 
ICDKVOPN except for two things: 7l) the exit indicator is set to 'no 
exit 1 , and (2) control is returned via register 4 to the library 
routine which invoked it (ICDKTIO). [ICDKVTIO] 
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Storage for the debug tables and a pointer in register 8 to 
PGM are passed to ICDBLDTB by ICDKORGE. ICDBLDTB builds a 
STMTABLE entry for each source statement using compiler tables 
LINTAB, LINPTRS, and LINCHN. The program-unit directory (DIR) 
is built from information in PGM• The symbol table (ICDNAME) 
is built from VARCON and ARRYDSC for the main program unit. 

The debug communications area (COMREGN) in ICDONITR is 
initialized. (ICDONITR, the debug monitor, is not reentrant 
since it is modified.) [ICDBLDTB] 


The Debug monitor ICDONITR receives control through ICDDBG, 
the object code interface. Monitor sets the FIRSTIME flag on 
when it is first entered. In this case, the monitor 
initializes the trace table FLOWCHAR to zero. It calls 
ICDCHAIN to get storage in subpool 77 for text elements used 
in subcommand processing. The monitor also sets the ATTNSW 
flag to 1 so that attention interrupts can be received. 

Then, the scanobey routine within the monitor is called to 
control a series of subcommand promptings and executions. A 
series ends when a GO or RUN is entered. [ ICDONITR,SCANOBEY] 


The subcommand-scan dispatch routine ICDSCAN is called by 
scanobey. ICDSCAN calls for printing of the user prompt 
message, TESTVSB. The message is printed by ICDMODE contained 
in ICDMSSG. The scan dispatch routine receives the user’s 
subcommand in the ATTN buffer. [ICDSCAN] 


This routine verifies the command by checking for the name in 
the ICDHCMDS or ICDSCMDS tables. ICDDSCAN determines the 
routine to handle the particular subcommand. ICDDSCAN calls 
the routine, which builds the text element (s). (See Appendix B 
for the contents of the text elements.) Also, any operand or 
syntax checking is performed. [ICDDSCAN] 


The scanobey routine in the monitor calls ICDOBEY, which 
determines from the ICDOCMDS table the routine to execute the 
obey processing for the subcommand. The text elements produced 
during the scan phase are used in the obey execution. The obey 
routines use the following return codes: 


CODE MEANING 


0 

4 

8 

12 

16 

24 

[ICDOBEY] 


normal 

jump required 
resume processing 
ATTN received 
severe error 
halt processing 


ICDONITR calls the WHEN test routine to check for any WHEN 
conditions received during the initial entry. For example, if 
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Via 

icddbc; 


Subsequent entries 

7 Update count for this 
statement. I"" 


Output 
STMT ABLE Entry 


STMCOUNT-I 



COMREGN 


Check whether a WHEN 
condition was met. If 
so, update WHEN. 


8 Set up to process next 
object statement. | 


9 Execute subcommand 
list, if any, I 


WHEN Chain Entry 


issue prompt. 


1 10 End testing when RUN 
command received. 



Diagram 9 (Part 3 of 5). Debug Processor 
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a WHEN condition specified entry to a program unit, the 
COMWHNCN pointer will be nonzero. Processing continues at step 
8. [ICDWNTST] 


ICDONITR 

7 For any entry after the first, the STMCOUNT in the STMTABLE 
entry is incremented. ICDWNTST is called to check for and 
process any WHEN conditions which have been met. [ICDONITR] 

8 For all entries, attention interrupts are disallowed, by 
setting the COMNINT flag to 1, while the current-statment 
boundary is updated to the next line number. If the statement 
is a branch, the FLOWCHAF table is updated. (FLOWCHAR maps the 
ten most recent branches in the program.) 

The COMNEXT flag is checked. If it is on, the NEXT subcommand 
is in effect while interrupts are disallowed. In this case, 
the COMNXTRG flag is set to 1 and COMNEXT is turned off. Then, 
the COMATTEN flag is checked. If it is on, an ATTN occurred 
while interrupts were disallowed. This is noted by turning on 
COMATNTG. (At this point, interrupts are again allowed by 
setting COMNINT off.) The NEXT message is printed, and 
scanobey is called to process any subcommands the user enters. 
[ ICDONITR, SCANOBEY ] 

9 The monitor checks whether COMRUNFL flag is on (a RUN was 
issued). The statement frequency count is incremented. 

If required, a message for WHEN or NEXT is issued. If there is 
an AT for this statement entry in STMTABLE, the AT message is 
issued. Then ICDOBEY is called via scanobey to execute the 
subcommand list associated with the AT and to check for a 
statement range or additional text elements. 

If there was no subcommand list, the TESTVSB prompt is issued. 
The statement frequency count is updated. Control is returned 
to the object code via ICDDBG. 


The following list gives the routines that handle the scan phase and 
obey phase for each subcommand. 


SOBCOH MAND 

SCAN ROUTINE 

OBEY ROUTINE 

AT 

ICDPSCL 

ICDATTO 

END 

ICDPRSCN 

ICDOBEY 


(ICD16SCN) 

(ICDENDO) 

GO 

ICDPRSCN 
(ICDOB SCN) 

ICDGOGO 

HALT 

ICDPRSCN 

ICDOBEY 


(ICDOASCN) 

(ICDHALTO) 

HELP 

ICDPRSCN 

(ICD15SCN) 

ICDHELPO 

IF 

ICDPRSCN 

ICDIFO 

LIST 

ICDLSSCN 

ICDLISTO 

LISTBRKS 

ICDPRSCN 

(ICD11SCN) 

ICDLBKO 

LISTFREQ 

ICDPRSCN 

(ICD12SCN) 

ICDLFQO 

NEXT 

ICDPRSCN 

ICDOBEY 


(ICD05SCN) 

(ICDNEXTO) 

OFF 

ICDPRSCN 

(ICD08SCN) 

ICDOFFO 

OFFWHEN 

ICDPRSCN 

(ICD26SCN) 

ICDOFFWO 
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QUALIFY 

RUN 

SET 

TRACE 

WHERE 

WHEN 


Diagram 
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ICDPRSCN 

(ICD04SCN) 

ICDPRSCN 

(ICDOCSCN) 

ICDSTSCN 

ICDPRSCN 

(ICD27SCN) 

ICDPRSCN 

(ICD13SCN) 

ICDPRSCN 


ICDOBEY 

(ICDQUALO) 

ICDRUNO 

ICDSETO 

ICDOBEY 

(ICDTRCO) 

ICDHHRO 

XCDWHENO 


9 (Part 5 of 5) • Debug Processor 
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ICDQRNME 

1 The VS BASIC RENUMBER routine is passed the renumbering 
values, the in-core data set, its size and attributes* To 
perforin the renumber operation two passes of the in-core data 
set are required* The first pass builds a number table that 
contains the existing line numbers and each corresponding new 
line number, [ICDQRNME ] 

2 The second pass allocates a new in-core data set that will 
contain the renumbered source. [ICDQRNME] 

3 Each line is copied to a buffer with the new line number 
replacing the old one. [ICDQRNME] 

4 The buffer is passed to a scanning routine (ICDQRNMS) to check 
for statement number references which are replaced by the 
corresponding new line numbers from the number table. 

ICDQRNMS is passed an input buffer containing the source 
statement, a work area and an output buffer. Blanks are 
squeezed from the input buffer to allow scanning. Then the 
squeezed source statement, now in work buffer 1, is checked 
for statement number references and when found they are 
replaced by the new line numbers in the number table. The 
updated and squeezed source, now in work buffer 2, is then 
expanded into the output buffer by comparing the original 
record with the squeezed record to insert blanks where 
required. [ICDQRNME,ICDQRNMS ] 

5 The updated line then is placed in the new in-storage data 
set. On successful completion the in-storage data set size and 
location are updated to point to the new in-storage data set. 
On exit to IKJEBERE the number table and unused in-core data 
set are freed. [ICDQRNME] 


Diagram 10 (Part 2 of 2). Renumbering Facility — TSO, CMS 
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PROGRAM ORGANIZATION 


m his section of the manual lists in tabular form the entry points of the VS BASIC 
Processor modules with flow of control to and from each entry point. 


• Table 1 lists the executor entry points 

• Table 2 lists the compiler entry points 

• Table 3 lists the library entry points 

• Tablo 4 lists the debug entry points 

• Table 5 lists the CMS conversion utility entry points 

• Table 6 lists the renumbering facility entry points. 


Table 1. VS BASIC Executor Module Entry Points (Part 1 of 4) 


1-- 

[Entry | 

[Points 

— 

Module 

Name 

... . - j 

— i 

Called 

By 

r ---- -—.. — i - — "T- -- i 

i tti 

Function (Calls (Exits To | 

_ _i _i_i 


ICDxEXEC 

System 

- ^ 
Initializes the VS BASIC processor f 

i i 

|ICDJCMPA j 


(For 

TSO 


for a compilation or an execution j 

1 1 


S 

is 

Q, 


! 

1 1 


for OS/VS I 


i 

1 1 


x 

is 

Y, 


i 

1 1 


(for CMS 



1 1 


x 

is 

w. 



1 1 


for DOS/VS 1 


\ 

f 1 

STAEEXIT 

x 

is 



i 


SPIEEXIT 

1 

SVC7/8 

Process program checks ( 

1 1 


X 

is 

P) 



1 I 

STAXEXIT 





I 

Processes attention interrupt f 

1 1 
(System | 






condition, sets flags for run- | 

i i 






time routines before returning ( 

i i 






to point of interruption | 

i i 

SVCRET 




SVC1, 


jlCDJRUNA,j 





SVC 2, 

Returns control to compiler j 

jICDKCLOS,| 





SVC 3, 

language processing routines i 

(ICDKERRR,j 





SVC4, 

after a request for system ! 

|ICDKERRT, f 





SVC 5, 

service (SERV) has been ! 

(ICDKRUNX,| 





SVC6, 

processed ■ 

1ICDKERRS,| 





SVC12, 

1 

jICDKCHN, | 





SVC13 , 

1 

jICDKETF2,j 





SVC18, 

I 

jICDKOPN1, | 





SVC21, or 

1 

|ICDKORGE,j 





SVC 22 

1 

jlCDKPSET j 




1 


1 

|ICDKTOUT,j 






1 

lor | 






\ 

1 1 


svco 



1 

STAXEXIT 





I 

or 





! 

SVC 23, 







1 1 

K 




I 

or 

1 






| ICDKRUNX 

t 


1_1 

i— 



1 ■ - 

-1- 
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Table 1. VS BASIC Executor Module Entry Points (Part 2 of 4) 
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Table 1. VS BASIC Executor Modules Entry Points (Part 3 of 4) 
i-i-1-1- 


Entry 

Points 

Module 

Name 

Called By 

Function 

SVC 23 


ICDKERRS 

Processes abnormal termination 
conditions 

SVC 24 


ICDKVDEL, 

ICDKVRD, 

ICDKVRFD, 

ICDKVRST, 

ICDKRWR, 

ICDKVWRT, 

ICDKVRRD 

ICDKINPT 

ICDKTOUT 

Processes requests to process 
record-oriented files 

INPUT FROM 

PRINT TO 

SVC25 


ICDKVOPN, 

ICDKVTIO 

Processes requests to open 
record-oriented files 

SVC 26 


ICDKVCLS 
ICDKVEND 

Processes requests to close 
record-oriented files 

TINPUT 


SVC2 and 
SVC 14 

Reads data from a terminal or unit 
record device 

TOOTPUT 


STAEXIT, 

SVCO, 

SVC1, 

SVC2, 

SVC 23 

Write data to a terminal or unit 
record device 

ICDPCLS 

ICDPCLS 

ICDPEXEC, 

SVC26 

VSPC (OS AND DOS) : Closes VS AM 
or VSPC files 

ICDPOPN 

ICDPOPN 

ICDPEXEC, 

SVC25 

VSPC (OS AND DOS): Opens VSAM 
or VSPC files 

ICDPPENT 

ICDPPENT 

ICDPEXEC, 

SVC24 

VSPC (OS and DOS): Does I/O 
for VSPC files 

ICDPVENT 

ICDPVENT 

ICDPEXEC, 

SVC24 

VSPC (OS and DOS): Does I/O 
for VSAM files 

ICDQVCLS 

ICDQVCLS 

SVC26 

Processes a VSAM CLOSE request 

ICDQVDEL 

ICDQVDEL 

ICDQVENT 

Processes a VSAM ERASE request 

ICDQVENT 

ICDQVENT 

SVC24 

Processes VSAM I/O requests 

ICDQVERR 

ICDQVERR 

ICDQVDEL 

ICDQVGET 

ICDQVPNT 

ICDQVPUT 

Processes VSAM logical and 
physical I/O errors and the end 
of file condition 

ICDQVGET 

ICDQVGET 

ICDQVENT 

Processes a VSAM READ request 

ICDQVOPN 

ICDQVOPN 

SVC 25 

Processes a VSAM OPEN request 

ICDQVPNT 

ICDQVPNT 

ICDQVENT 

Processes a VSAM RESET request 


I ■ ■ ■■■■!-1-4. 


Calls 

TOOTPUT 


ICDQVDEL 

ICDQVGET 

ICDQVPUT 

ICDQVPNT 


- -l 

t 

Exits To | 


SVCO 


Caller 


I 


Caller 


Caller 


Caller 


Caller 


Caller 


Caller 


Caller 


jCaller 

|Caller or 
jICDQVERR 

|Caller 

|Caller 


I 

I 

|Caller or 
jICDQVERR 

I 

j Caller 

I 

(Caller or 
jICDQVERR 
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Table 1. 

VS BASIC 

Executor Modules Entry 

Points (Part 4 of 4) 



|Entry 
|Points 

i 

| Module 
t Name 

1 

-1 

i 

JCalled By 

J - 

a 

1 

|Function 

J _ __ _ 


i 

I Calls 

^ i 

i i 

|Exits To | 

I a 

IICDQVPUT 

1 

|ICDQV POT 

1 

i 

IlCDQVENT 

1 

1 

1 

|Processes 
i 

a 

a VSAM PUT request 


t 1 

(Caller or| 

|ICDQVERR | 

i i 

|ICDQWCLS 

1 

| ICDQWCLS 

i 

1 

|SVC26 

i 

1 

|Processes 

i 

a CMS VSAM CLOSE request 


I I 

|Caller | 

i i 

|ICDQWDEL 

1 

|ICDQWDEL 

1 

i 

1 

|ICDQWENT 

1 

1 

|Processes 
|request 

a 

a CMS VSAM ERASE 


l 1 

|Caller or| 

|ICDQWERR | 

i i 

|ICDQWENT 

i 

|ICDQWENT 

1 

1 

1 

1 

JSVC24 

1 

1 

1 

I 

1 

|Processes 
|requests 

1 

1 

■ 

CMS VSAM I/O 

|ICDQWDEL 
|ICDQWGET 
| ICDQWPNT 
|ICDQWPOT 

|Caller | 

1 1 

1 1 

1 t 

1 I 

|ICDQWERR 

1 

|ICDQWERF 

1 

1 

1 

I 

1 

|ICDQWDEL 
|ICDQWGET 
|ICDQW PNT 
|ICDQWPUT 

i 

i 

|Processes CMS VSAM logical and 
|physical I/O errors and the end 
|of file condition 

1 

i 


l l 

|Caller | 

1 1 

1 1 

1 1 

1 1 

|ICDQWGET 

|ICDQWGET 

1 

1 

I 

|ICDQWENT 

1 

1 

i 

|Processes 
|requests 

i 

CMS VSAM GET 


1 1 

(Caller or| 

| ICDQWERR | 

1 1 

|ICD QWOPN 

IICDQWOPN 

i 

1 

| S VC 25 

i 

i 

|Processes 

i 

CMS VSAM OPEN requests 


i i 

|Caller | 

1 f 

|ICDQWPNT 

1 

|ICDQWPNT 

1 

i 

1 

IICDQWENT 

1 

1 

1 

|Processes 
|requests 

t 

CMS VSAM RESET 


ICaller or| 

|ICDQWERR | 

1 1 

| ICDQWPUT 

1 

|ICDQW POT 

1 

1 

1 

IICDQWENT 

1 

1 

l 

|Processes 
|requests 

i 

CMS VSAM PUT 


1 l 

ICaller or| 

|ICDQWERR | 

1 1 

|ICDQ2CLS 

1 

|ICDQZCLS 

1 

i 

! 

ISVC26 

1 

i 

I 

|Processes 
j request 

■ 

a DOS/VS VSAM CLOSE 


(Caller | 

i f 

i i 

|ICDQZDEL 

|ICDQZDEL 

1 

i 

| ICD QZENT 

1 

i 

I 

|processes 
(request 

i 

a DOS/VS VSAM ERASE 


i i 

ICaller or| 
(ICDQZERR | 

1 1 

IICDQZENT 

IICDQZENT 

1 

1 

1 

1 

| SVC 24 

1 

1 

1 

a 

|Processes 
|requests 

1 

1 

a 

DOS/VS VSAM I/O 

|ICDQZDEL 
|ICDQZGET 
|ICDQZPNT 
|ICDQZPUT 

ICaller | 

1 1 

i 1 

1 1 

\ICDQZERR 

1 

|ICDQZERR 

1 

1 

1 

| 

1 

|ICDQZDEL 
|ICDQZGET 

11 CD QZPNT 
|ICDQZPUT 

1 

|Processes DOS/VS VSAM logical and 
|physical I/O errors and the end 
jof file condition 

I 

i 


1 1 

ICaller | 

1 1 

1 1 

1 1 

|ICDQZGET 

1 

|ICDQZGET 

1 

i 

1 

IICDQZENT 

1 

1 

i 

|Processes 
|requests 

i 

DOS/VS VSAM GET 


i i 

ICaller or| 

|ICDQZERR | 

1 1 

|ICDQZOPN 

1 

|ICDQZOPN 

1 

|SVC25 

i 

I 

|Processes 

i 

DOS/VS VSAM OPEN requests 


ICaller | 

i i 

|ICD QZPNT 

|ICDQZPNT 

1 

1 

1 

IICDQZENT 

1 

a 

1 

|Processes 

| requests 

■ 

DOS/VS VSAM RESET 


I i 

ICaller or| 

|ICDQZERR | 

l l 

| ICD QZPOT 

i- 

|ICDQZPOT 

\ 

. i_ 

IICDQZENT 

1 

- 

l 

| processes 
| requests 

j _ 

DOS/VS VSAM PUT 

J- 

i 1 

(Caller or| 

|ICDQZERR | 
•j- j 
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Table 2. VS BASIC compiler Module Entry Points (Part 1 of 6) 


Called By Function 

I 


ins storage for arrays and 
gns displacements 


I Calls 


jExits To j 


ICDJDEFR 


CDJNUCL 


>Rlf 


tes array displacements and 
ter entries 

rols the deferred compilation 
j of the DATA, EXIT, FORM, and Image 
jstatements 

I 

S, |common exit point for all normal 
, jexits from the statement processing 
routines 


sses the CHAIN statement 


esses CLOSE statements; emits 
that links to the run-time 
ine ICDKCLOS 


llocates user area and 
ializes it for a compilation 
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Table 2* vs BASIC Compiler Module Entry Points (Part 3 of 6) 
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Table 2. VS BASIC Compiler Module Entry Points (Part 4 of 6) 


1- 

(Entry 

(Points 

i . 

— 

Module 

Name 

- . 

— 

Called By 

r— 

Function 

i- 

Calls 

-i- 

|Exits To 

ICDJFORM 

ICDJDEFR 

ICDJCDEF 

Processes the FORM statement 

ICDJSCN!, 

TCDJCNVT 

jICDJCEND 
jor 

|ICDJERRP 

ICDJFRM2 

ICDJNUC1 

ICDJFGEN 

Return point from code generation 



ICDJFRM3 

ICDJNUC! 

ICDJFCAT, 

ICDJFUNY 

Return point from code generation 



ICDJFHM5 

ICDJNUC1 

ICDJFBN1, 
ICDJFBN2, 

ICDJFEXP 

Return point from code generation 



ICDJFUNY 

ICDJFUTS 

ICDJFMLA 

Processes unary operator 
expressions 


|ICDJFRM3 

ICDJGET 

■ 

ICDJIOVB 

ICDJCTL 

ICDJMATV 

Processes the GET statement; emits 
code to link to the run-time 
routine ICDKGET 

ICDJSCN1, 
ICDJFMLA 

|ICDJCEND 

1 Dr 

|ICDJERRS 

ICDJGOSB 

ICDJNUC4 

ICDJCTL 

Processes the GOSUB statement 

• 

ICDJLINE, 

ICDJFMLA 

|ICDJCEND 

1 or 

|ICDJERRS 

ICOJGOTO 

ICDJNUC4 

ICDJCTL 

Processes the GOTO statement 

i 

ICDJLINE 

|ICDJCEND 
jor 

|ICDJERRS 

ICDJIF 

l 

i 

ICDJNUC5 

ICDJCTL 

1 

Processes the IF statement 

ICDJFMLA, 

ICDJLINE 

|ICDJCEND 

1 or 

|ICDJERRP 

i 

| ICDJIF1 

1 

I 

ICDJNUC5 


Return point after processing the 
THEN clause 

ICDJLINE 


I 

jICDJIF2 

t 

j 

ICDJNUC5 

1 

1 

Return point after processing the 
| ELSE clause 



1 

| ICDJINFO 

I 

1 

ICDINFO 

1 

1 

1 

|Contains the compiler Information 
| Table 

i 



1 

jlCDJIMAG 

1 

{ 

ICDJDEFR 

1 

| ICDJCDEF 

1 

1 

Processes the Image statement 

i 


(ICDJCEND 
|or 

jICDJERRP 

1 

jlCDJINPT 

1 

1 

| 

ICDJIOVB 

1 

| ICDJCTL 

(Processes the INPUT statement; 
emits code to link to the run-time 
routine ICDKINPT 

ICDJSCN1 

|ICDJCEND 
|or 

jICDJERRS 

1 

(ICDJLET 

1 

I 

ICDJNUC2 

ICDJCTL 

1 

1 

| 

1 

Processes assignment statements 

1 

ICDJFMLA, 

ICDJSCN! 

(ICDJCEND 

jor 

|ICDJERRP 

I 

jICDJLINE 

1 

1 

1 

1_1 

ICDJNUCL 

1_1 

1 

1 ICDJGOSB, 

| ICDJGOTO, 
ICDJIF1, 
ICDJIF2 

i_i 

| 

Scans the source code for valid 
line numbers 

i---1 

ICDJCNVT 

1 

1 

i 

jcaller or 
|ICDJERRS 

j_ 




j 
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Table 2. VS BASIC Compiler Module Entry Points <Part 5 of 6) 

i-1-1-1—-1-r 


Module | 

Name |Called By Function 


Calls 


j Exits To 

j_ 
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Table 2. VS BASIC Compiler Module Entry Points (Part 6 of 6) 


f “' """ 

Entry 

Points 

r- 

Module 

Name 

— 

called By 

r~— -.. — — ■ ■ -- - 

Function 

l~ 1 - — 1 

1 1 

Calls (Exits To | 

j * 

ICDJSCN1 

ICDJNUC1 

ICDJGET, 

ICDJINPT, 

ICDJREAD, 

ICDJFOR, 

ICDJLET 

ICDJFORM, 

ICDJNEXT, 

ICDJDEF1, 

ICDJDEP2, 

ICDJDIM 

Scans the source statements for 
valid identifiers (simple 
variables, literals, internal 
constants, user functions, array 
elements, and arrays) 

ICDJCONF,jCaller orj 
ICDJCNVT,jICDJERRT | 
ICDJFMLA,j | 

ICDJVAL | | 

1 1 

1 1 

1 1 

1 1 

1 1 

1 1 

ICDJSCN2 

ICDJNUC1 

ICDJFMLA 

, 

Identifies operands in expressions 

1 1 

1 1 

1 1 

ICDJSTOP 

ICDJVERB 

ICDJCTL 

Processes the STOP statement 

1 1 

jICDJCEND | 

t i 

ICDJUSE 

ICDJVERB 

ICDJCTL 

Processes the USE statement; emits 
data used by the run-time routine 
ICDKORGE 

1 I 

jICDJCEND j 

jor j 

jICDJERRP | 

a 1 

ICDJVA.L1 

ICDJNUC1 

ICDJSCN1 

Allocates storage for arithmetic 
variables 

1 1 

(Caller or( 

|ICDJERRT | 

i i 

ICDJVAL2 

ICDJNUC1 


Allocates storage for alphameric 
variables on a word boundary 

i i 

i i 

i i 

1 i 

I CD JVM. 3 

ICDJNUC1 

! 

1 

| 

ICDJSCN1 

Allocates storage for alphameric 
| variables on other than a word 
boundary 

1 ! 

1 1 

1 1 

1 1 

l i 

ICDJVAL4 

1 ICDJNUC1 

i 

1 

1 

|Determines if sufficient storage is 
lavailable to allocate to a 
[variable; allocates storaqe, if 
available, or indicates an error 

1 1 

1 1 

! 1 

1 1 

1 1 


1 

1 

[for insufficient storage 

i 

I 1 

1 1 1 

ICDJVAL5 

ICDJNUC1 

I 

|ICDJSCN1 1 
|ICDJDATA 

1 

1 

Allocat.es storage for character 
constant and initializes with 
literal value 

1 1 

1 1 Caller i 

1 1 1 

1 1 1 

ICDJVDEL 

ICDJVREC 

J 

ICDJCTL 

1 

l 

Processes the record I/O ERASE 
[statement 

1 j | 
[ICDJFMLA, | ICDJCFND j 
j ICDJDEXT, | or | 
[ICDJCNVT jICDJERRP j 
j ICDJSCN1 j | 

i i i 

ICDJVRD 

ICDJVREC 


Processes the record I/O READ 
statement 

1 1 1 

I i i 

1 I i 

i i i 

ICDJVRRD 

ICDJVREC 

1 

1 

Processes the record I/O REREAD 
statement 

1 1 1 

1 1 1 

1 j | 

ICDJVRWR 

ICDJVREC 

! 

Processes the record I/O REWRITE 
statement 

I 1 1 

1 1 1 

ICDJVWRT 

ICDJVREC 

I 

Processes the record I/O WRITE 
statement 

1 1 1 

I I 

t— ... ■ .. 1 


■ , -- . J 

L— — -.. ■■ --- - -1 

i. ■■ -.-J-1 
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Table 3. 


Licensed Material - Property of IBM 
VS BASIC Library Module Entry Points (Part 2 of 7) 


[Entry 

Points 

Module 

Name 

Called By 

Function 

Calls 

- - -- 

i 

|Exits To 

| ICDKDASN 

ICDKDSUB 

Object 

Code 

Evaluates the double precision arc 
sine function (ASN) 


|Caller 

I 

1 

ICOKDAT 

ICDKGSUB 

Object 

Code 

Evaluates the date function (DAT) 


1 

[Caller 

1 

ICDKDATN 

ICDKDSUB 

1 

Object 

Code 

Evaluates the double precision arc 
tangent function (ATN) 


1 

jcaller 

1 

ICDKDBPR 

ICDKPRNT 

ICDLISTO 

Formats and prints arrays for the 
debug processor 


|Caller 

1 

I 

ICDKDCOS 

ICDKDSUB 

Object 

Code 

Evaluates the double precision 
cosine function (COS) 


1 

jcaller 

1 

1 

| ICDKDCOT 

ICDKDSUB 

Object 

Code 

Evaluates the double precision 
cotangent function (COT) 


1 

jcaller 

1 

1 

TCDKDCSC 

ICDKDSUB 

Object 

Code 

Evaluates the double precision 
cosecant function (CSC) 

ICDKDCOS 

|Caller 

1 

ICDKDET 

ICDKMINV 

Object 

Code 

Evaluates the matrix determinant 
function (DET) 

SVC5 or 
SVC 6 

! 

(Caller or 
jICDKERRT 

i 

| ICDKDEXP 

j 

ICDKDSUB 

Object 

Code 

Evaluates the double precision 
exponent function (EXP) 


i 

jcaller 

1 

| ICDKDHCS 

ICDKDSUB 

Object 

Code 

i 

Evaluates the double precision j 

hyperbolic cosine function (HCS) 

ICDKDEXP 

1 ! 
(Caller 

i 

, ICDKDHSN 

ICDKDSUB 

(Object 

Code 

Evaluates the double precision 
hyperbolic sine function (HSN) 


|Caller l 

1 

ICDKDHTN 

ICDKDSUB 

Object 

Code 

Evaluates the double precision 
hyperbolic tangent function (HTN) 

ICDKDEXP 

[Caller 1 

1 

ICDKDLGT 

ICDKDSUB 

Object 

Code 

Evaluates the double precision 
locr base 10 function (LGT) 


[Caller | 

I 

ICDKDLOG 

ICDKDSUB 

Object 

Code 

Evaluates the double precision 
log base 2 function (LOG) 

I 


1 1 
jcaller ' 

1 

1 | 

ICDKDLTW 

ICDKDSUB 

Object 

Code 

1 

Evaluates the double precision 

Hog base e function (LTW) 

| 


1 1 

jcaller | 

1 ! 

i i 

ICDKDMAX 

ICDKDSUB 

Object 

Code 

1 

Evaluates the double precision 
| maximum value function (MAX) 


i 1 

jcaller | 

1 1 

ICDKDMIN 

ICDKDSUB 

(object 

(Code 

| 

| 

Evaluates the double precision 
minimum value function (MIN) 


1 

(Caller 

i 

> 

ICDKDOT 

ICDKMAT 

Object 

jcode 

(Evaluates the matrix dot product 

[function (DOT) 

1 

1 

1 

(Caller or 
jICDKERRT 

a 

ICDKDPWR 

ICDKDSUB 

| Object 
|Code 

1 

(Evaluates double precision internal 
[exponentiation operation 

ICDKDLOG, 

ICDKDEXP 

( 

(Caller 

i 
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r " . . 1' - T~ — - T~ - - - -- ■ —t 1 - 1-: —I 


Entry 

Points 

Module 

Name 

• 

Called By 

Function 

Calls 

-l 

I 

Exits ‘ To 

ICDKDSEC 

ICDKDSUB 

Object 

Evaluates the double precision 

1 

Caller | 



Code 

secant function (SEC) 



ICDKDSIN 

ICDKDSOB 

Object 

Evaluates the double precision 


Caller | 



Code 

sine function (SIN) 



ICDKDSQR 

ICDKDSUB 

Object 

Evaluates the double precision 

■ 

Caller | 



Code 

square root function (SQR) 



ICDKDTAN 

ICDKDSUB 

Object 

Evaluates the double precision 

. 

Caller | 



Code 

tangent function (TAN) 



ICDKERRR 

ICDKERR 

ICDKINPT 

Writes an error message and 

SVC 10 

Caller | 



ICDKINTP 

returns to the caller 

SVC 22 






SVC1 


ICDKERRS 

ICDKERR 

ICDKCLOS, 

Writes a system error message 


SVC23 I 



ICDKFSCN, 

and terminates execution of the 





ICDKINPT, 

object program 





ICDKINTP, 






ICDKOPEN 






ICDKPOT 






ICDKREAD 




ICDKERRT 

ICDKERR 

ICDKCLOS 

Writes an error message and 


SVCO | 



ICDKCNVT 

terminates execution of the 





ICDKETOF 

object program or passes control 





ICDKETF2 

to user-specified line number 





ICDKGET 


1 




ICDKKLN 


1 




ICDKKPS 


1 




I CD KM INV 






ICDKOPN1 






ICDKPRNT 






ICDKPUT 






ICDKREAD 






ICDKRLN 






ICDKRST 




ICDKETF2 

ICDKETOF 

ICDKGET 

Moves character data to the user 

SVC4 

Caller or) 



ICDKINPT 

target area 


ICDKERRT | 



ICDTSCN 




ICDKETOP 

ICDKETOF 

ICDKGET 

Converts and moves numeric data 

SVC« 

Caller or| 



ICDKINPT 

into a user target area 


ICDKERRT | 



ICDTSCN 




ICDKEXP 

ICDKSSUB 

Object 

Evaluates the exponent function 


Caller j 



Code 

(EXP) 

1 

I 


ICDKFSCN 

ICDKIOVB 

ICDKCLOS , 

checks if a file referenced in an 

! 

1 

Caller or| 



ICDKGET, 

| I/O statement is open and if not 


ICDKERRT f 



ICDKOPEN, 

|is there cut available place in 





ICDKPUT, 

[which to open it 





ICDKRLN, 

1 

j 




ICDKRSET, 

1 





ICDKVOPN 

1 


i i 

i--i 

t—,,__ ■ ■ 1 

L ■ ■ i 

. . 


L,,. 1 
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Table 3. VS BASIC Library Module Entry Points {Part 5 of 7) 


1- 

Entry 

Points 

— i 

Module 

Name 

_ 

--i 

Called By 

— 

Function 

- _ .... _ 

calls 

r l 

i i 

(Exits TO ! 

1 l 

ICDKMDSR 

I CD KM AT 

■ 

Object 

Code 

Processes matrix descending 
sort 


1 1 

|Caller orj 

jICDKERRT | 

i t 

ICDKMIDN 

ICDKMAT 

Object 

Code 

Evaluates the matrix identity 
function (IDN) 


I 1 

(Caller or| 
|ICDKERRT | 

i i 

ICDKMIN 

I CD KS SUB 

object 

Code 

Evaluates the minimum value 
function (MIN) 


i i 

jcaller | 

t 1 

1 1 

ICDKMINV 

ICDKMINV 

0 bj ect 
Code 

processes matrix inversion 

SVC5 or 
SVC6 

I » 

(Caller or| 

jICDKERRT | 

ICDKMMUL 

ICDKMAT 

Object 

Code 

Processes matrix multiplication 


1 1 

(Caller or| 

|ICDKEPRT | 

i * 

ICDKMSCA 

ICDKMAT 

■ 

Object 

Code 

Processes the assignment of a 
scalar to a matrix 


I I 
(Caller or| 
(ICDKERRT | 

i i 

ICDKMSDB 

ICDKMAT 

' 

Object 

Code 

Processes matrix subtraction 


(Caller or| 
| ICDKEPRT j 

ICDKMTRN 

■ 

ICDKMAT 

• 

Object 

Code 

Processes matrix transposition 


1 1 

(Caller or| 
(ICDKERRT j 

i i 

ICDKNUM 

ICDKGSUB 

Object 

Code 

Evaluates the character string 
value function (NUM) 

ICDKETOF 

(Caller ( 

1 1 

| | 

ICDKON 

ICDKERR 

Object 

Code 

Activates/deactivates ON conditions 

. 


1 Caller | 

1 

ICDKOPEN 

jICDKIOVB 

1 

Object 

Code 

! 

Processes stream file open 
requests 

ICDKOPN1 

1 l 

(Caller or| 

(ICDKERRT ( 
I | 

ICDKOPN1 

1 

| ICDKOPN2 

l 

ICDKOPEN 

Opens a stream file 

SVC 21 

i 1 

|Caller or( 
(ICDKERRT j 

< i 

ICDKORGE 

ICDKORGE 

Object 
Code from 
PRBGN in 
PRG 

Prepares a VS BASIC program for 
execution (sets the current line 
width, handles chaining, and 
allocates and initializes arrays) 

1 

SVC6 

(Object | 

|code via j 
|BGEX in | 
|OBJAREA | 
i j 

I CD KP LIN 

I CD KP LIN 

ICDKCNVT, 

ICDKPRNT 

! 

Moves character strings to the | 

print buffer j 

i 

ICDKTOUT 

|Caller | 

i i 

l 1 

ICDKPRD 

ICDKMAT 

Object 

Code 

! 

Evaluates the matrix product | 

function (PRD) 1 

i 


(Caller or) 
(ICDKERRT | 

| I 

ICDKPRNT 

ICDKPRNT 

: 

1 

1 

Object 

Code 

1 

Controls the conversion and 1 

formatting of data specified in 
PRINT, PRINT USING, MAT PRINT, | 

and PAUSE statements | 

ICDKCNVT, 
ICDKPLIN, 
ICDKTOUT 
SVC 13 

SVC1 

1 

|Caller, | 
(ICDKERRS, j 
(or j 

(ICDKERRT ( 

I t 

1 | 

ICDKPUT ] 

1 

ICDKIOVB i 

object 

Code 

Processes stream file output 
requests 

! 

I 

1 

| ICDKFSCM 
{ICDKOPN1 
| ICDKETOF 
|SVC3 

1 

| ICDKEXP 
l° r 

| ICDKLOG 

L _ _ — 

1 * 

|caller j 

i i 

i i 

i » 

| 

ICDKPWR 

ICDKSSUB 

I_ 

Object 

Code 

i . .. 

i 

Processes internal exponentiation 
operations 

1 

i - 1 

|Caller | 

i i 

! 1 

L. --J 
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Table 3. VS BASIC Library Module Entry Points (Part 7 of 7) 

i- t- t 1 r ~ " — • ■' • .. ■ 1 1 ■ . ■! " — i-» 


Entry 

Points 

Module 

Name 

Called By 

function 

Calls 

1 

Exits To | 

1 

ICDKTIO 

ICDKPRNT 

Object 

Code 

Handles switching of terminal 
input/output resulting from PRINT 

TO or INPUT FROM statements 

ICDKTOUT 

JCDKVTIO 

1 

Caller 

| ICDKTOUT 

1 

ICDKTOOT 

ICDKCNVT, 

ICDKERRS, 

ICDKERRT, 

ICDKINPT* 

ICDKPLJN, 

ICDKPRNT, 

or 

ICDKRUNX 

Move tf»e internal buffer to the 
terminal or unit record output 
buffer 

SVC 1 

SVC 2 4 

Caller 

ICDKVCLS 

ICDKVIOR 

Object 

Code 

closes a VSAM file 

SVC26 

Caller or 
SVC 13 

ICDKVDEL 

ICDKVIOR 

Object 

Code 

Erases a VSAM file 

SVC24 

Caller 

ICDKVEND 

ICDKVIOR 





ICDKVOPN 

ICDKVIOR 

| 

; 

Object 

Code, 

ICDKVRD, 

ICDKVRST, 

ICDKVRWR, 

ICDKVRD 

Locates and opens a VSAM file 

ICDKFSCN, 
SVC 25 

Caller or 
SVC 13 

ICDKVRD 

ICDKVIOR 

Object 

Code 

Reads a VSAM file 

SVC24 

Caller 

ICDKVRRD 

ICDKVIOR 

Object 

Code 

Rereads a VSAM file 

SVC 2 4 

Caller 

ICDKVRST 

« 

ICDKVIOR 

Object 

Code 

I 

Resets a VSAM file 

ICDKCNVT, 

Caller 

! 

1ICDKVRWR 

1 

1 

1 ICDKVIOR 

1 

I 

1 

Object 

jCode 

Rewrites a VSAM file 

IDCKCNVT, 
SVC 2 4 

Caller 

I 

|ICDKVTIO 

i 

1 

(ICDKVIOR 

1 

| ICDKTIO 

1 

Handles implicit OPEN of a 
'terminal' file 

ICDKFSCN, 
SVC 2 5 

Caller 

i 

jICDKVWRT 

1_ 

1 

jlCDKVIOR 

1_ 

| 

(Object 

jcode 

Writes a VSAM file 

ICDKCNVT, 

SVC24 

Caller 
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Table 4. VS BASIC Debug Module Entry Points (Part 1 of 9) 


Resolves addresses for the debug 
routines 


- Property of IBM 


1 - 

Entry 

* "T" ... "1 

Module 

Points 

Name 


ITR Handles an attention interrupt 

entered during debugging. Output 
being produced by a debug 
subcommand is terminated and a 
subcommand is requested and an 
immediate subcommand is processed 

Executes the AT subcommand 

Builds tables for use by the VS 
BASIC Debug Processor 

Creates a text element for 
constants 

Scans the WHEN and IF conditions 


KL jCalle 

e i 


Creates and processes chained 
text elements 


Tables of subcommand names and 
processing routines 

VS BASIC Debug communications 
region 

I 

Interface between the object 
code and the debug monitor | 

routine (ICDONITR). This routine | 
is called at each statement | 

boundary to check for debugging 
information 
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Table «. VS BASIC Debug Module Entry Points (Part 2 of 9) 


! 

|Calls 

j_ 


[Entry 

Module 

I 

jPoints 

i_i 

|Name | 

i_ _( 

|Called Byj 

_ i 
















Licensed Material - Property of IBM 
Table 4. VS BASIC Debug Module Entry Points (Part 3 of 9) 


J Entry 
IPoints 


Module 

Name 


i 

{Called By 


Function 


I 

|Calls 


I I 

j Exits TO j 
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Table 4. VS BASIC Debug Module Entry Points (Part 4 of 9) 


Entry 

Points 


Module 

Name 


Called By|Function 


jCalls (Exits To 
























Table 4 • 


Licensed Material - Property of IBM 
VS BASIC Debug Module Entry Points (Part 5 of 9) 


t Monitors transfer of control 
between program units; called at 
the entry and exit of user defined 
functions 

ICDDBG3 Updates the communications region 

pointers and issues trace 
messages; called at the entry and 
exit of user defined functions 

Processes the normal termination of 
a user^ program runninq under 
debug 


use^s program running under 


fies the name of a program 


area containing PCLs that 
passed to the TSO routine 
APS 


ts the REENTER message 


Scans the following subcommands 
to determine their operands: 
NEXT, E 
GO TO, 
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Table 4. VS BASIC Debug Module Entry Points (Part 8 of 9) 


1 - 

Entry 

Points 

— 

Module 

Name 

-1 

Called By 

— ... - i 

' 

Function 

-- ^ 

Calls 

Exits To | 

ICD04SCN 

I CD PR SC N 


Scans the QUALIFY subcommand 

• 

ICDCHAIN 

ICDDECHN 

TESTYP 

ZEROTXT 

| 

Caller | 

ICD05SCN 

ICD06SCN 

ICD07SCN 

ICDPRSCN 


Scans the NEXT subcommand 

' 

1 

• 

• 

Alias for ICDPSCL 

Alias for ICDWNSCN 

■ 

ICDCHAIN 

ICDDECHN 

TESTYP 

ZEROTXT 

Caller J 

ICD08SCN 

ICDPRSCN 


Scans the OFF subcommand 

ICDCHAIN 

ICDDECHN 

TESTYP 

ZEROTXT 

Caller | 

ICDOASCN 

ICDPRSCN 


Scans the HALT subcommand 

ICDCHAIN 

ICDDECHN 

TESTYP 

ZEROTXT 

caller | 

ICDOBSCN 

ICDPRSCN* 


Scans the GO TO subcommand 

ICDCHAIN 

ICDDECHN 

TESTYP 

ZEROTXT 

Caller | 

ICDOCSCN 

ICDOESCN 

ICDOFSCN 

ICDPRSCN 


Scans the RUN subcommand 

Alias for ICDWNgcN 

Alias for ICDLSSCN 

ICDCHAIN 1 
ICDDECHN | 
TESTYP 1 
ZEROTXT 

Caller | 

ICD11SCN 

ICDPRSCN 


Scans the LISTBRKS subcommand 

ICDCHAIN 

ICDDECHN 

TESTYP 

ZEROTXT 

Caller | 

ICD12SCN 

ICDPRSCN 


Scans the LISTFREQ subcommand 

ICDCHAIN 

ICDDECHN 

TESTYP 

ZEROTXT 

Caller | 

ICD13SCN i 

ICD14SCN 

ICDPRSCN 

ICDCHAIN 

Scans the WHERE subcommand 

Alias for ICDSTSCN 

Caller 

ICDDECHN 

TESTYP 

ZEROTXT 


ICD15SCN 

; 1 

1 - 1 

ICDPRSCN 

i_ i 

■ t 

Scans the HELP subcommand 

i . —— - i 

ICDCHAIN 

ICDDECHN 

TEXTYP 

ZEROTXT 

t. -J 

Caller | 

« 
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1 - 

Entry 

Points 

- ■ "i 

Module 

Name 

- 

Called By 

— 

Function 

- 1 - 1 

1 1 

Calls (Exits To | 

j i 

ICD16SCN 

ICDPRSCN 


Scans the END subcommand 

ICDCHAIN jcaller j 
ICDDECHN | | 
TESTYP j | 
ZEROTXT | | 

ICD26SCN 

ICDPRSCN 


Scans the OFFWN subcommand 

1 1 

ICDCHAIN (Caller ( 

ICDDECHN j | 

TESTYP | » 

ZEROTXT ( j 

I a 

ICD27SCN 

ICDCHK 

PGMCHK 

TESTYP 

ICDPRSCN 


Scans the TRACE subcommand 

Alias for ICDIDCHK 

Alias for ICDPGMCK 

Alias for ICDTSTYP 

1 1 

ICDCHAIN |Caller | 

ICDDECHN j | 

TESTYP j 1 

ZEROTXT | | 

1 1 

! 1 

1 1 

i l 

i i 

i i 

ZEROTXT 

i—_i 

i _ _i 

i_ j 

Alias for ICDZERO 

i _!_ i 

1 1 

1 ! 

i - . i- 1 


Table 5. VS BASIC Conversion Utility Module Entry Points 


i 

| Entry 
j Points 

i 

Module 

Name 

-1 

Called By 

... ..— 1-» 

1 1 1 

Function |Calls (Exits To ( 

i _ | i 

1ICDLUTIL 

1 

! 

<_i 

ICDLUTIL 

1_ J 

1 1 1 

This module converts BASIC data |ICDKCNVT |Caller j 

files in a CALL-OS format to an OS | | j 

compatible format. (CMS only) | | j 

t_i_i_i 


Table 6. VS BASIC Renumbering Facility Module Entry Points 


r -— i 

Entry 

Points 

- -1 

Module 

Name 

-- 

Called By 

r~ -— ..— 

Function 

---1 

i i 

Calls |Exits To | 

_i_i 

ICDQRNME 

ICDQRNME 

IKJEBERE 

1 

Provides an interface between the 
TSO EDIT RENUM routine (IKJEBERRE) 
and the VS BASIC RENUM routine 
ICDQRNMS) . This routine renumbers 
specified lines. (TSO only) 


ICDQRNMS 

ICDQRNMS 

■ 

Hi 

Scans a VS BASIC statement and 
changes statement number references 
to correspond with new line 
numbers. (TSO and CMS) 


« - j 

L, ■ , 1 
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DIRECTORY 


Table 7. VS BASIC Component Directory (Part 1 of 8) 


1- 

Name 

——-— ■ ■■ i 

Type 

- 1 

Module 

r - ---— '* —i 

Component 

— 

MO Diagram 

- r 

i 

L 

Microfiche 

~i 

_I 

I CD AD RES 

Module 


Debug 


i 

1 

ICDADRES 


ICDATTN 

Module 


Debug 


1 

ICDATTN 


ICDATTO 

Module 


Debug 

9 

1 

ICDATTO 


ICDBLDTB 

Module 


Debuq 

5,9 

1 

ICDBLDTB 


ICDCDSCN 

Modu le 


Debug 


1 

ICDCDSAN 


ICDCHAIN 

Module 


Debuq 

9 

1 

ICDCHAIN 


ICDCMTBL 

Module 


Debug 



ICDCMTBL 


I CD DBG 

Module' 


Debug 

9 

I 

ICDDBG 


ICDDECHN 

Entry Point 

ICDCHAIN 

Debug 


1 

ICDCHAIN 



Module 


Debug 

9 

1 

ICDDSCAN 


ICDEVALU 

Module 


Debug 


1 

ICDEVALU 


ICDFLOW 

Module 


Debug 


1 

ICDFLOW 


ICDFOSUB 

Module 


Debug 


1 

ICDFOSUB 


ICDGOGO 

Module 


Debug 

9 

1 

ICDGOGO 


ICDHELPO 

Module 


Debug 

9 

1 

ICDHELPO 



Module 


Debuq 


1 

ICDIDCHK 


ICDIFOB 

Module 


Debuq 

9 

1 

ICDIFOB 


ICDISCAN 

Modu le 


Debug 


1 

ICDISCAN 


ICDJAADJ 

Entry Point 

ICDJNUC1 

compiler 


1 

ICDJNUC1 


ICDJALOC 

Entry Point 

ICDJNUC1 

Compiler 


1 

ICDJNUC1 


ICDJCDEF 

Entry Point 


Compiler 

3 

1 

ICDJDEFR 


ICDJCEND 

Entry Point 

ICDJNUCL 

Compiler 

3 

1 

ICDJNUCL 


I CD JOHN 

Entry Point 

ICDJVERB 

Compiler 


1 

ICDJVERB 


ICDJCLOS 

Entry Point 

IC DJ10 VB 

Compiler j 


1 

ICDJIOVB 


ICDJCMPA 

Module 


Compiler | 

3 

1 

ICDJCMPA 


ICDJCNVT 

Entry Point 

ICDJNUCL 

Compiler 1 


1 

ICDJNUCL 


ICDJCONF 

Entry Point 

ICDJNUCL 



1 

ICDJNUCL 


ICDJCTL 

Entry Point 

ICDJNUCL 

| Compiler 

3,4 

1 

ICDJNUCL 


ICDJDATA 

Entry Point 

ICDJDEFR 

Compiler 

3 

1 

ICDJDEFR 


ICDJDDAT 

Entry Point 

ICDJNUCL 

Compiler 


1 

ICDJNUCL 


ICDJDEFR 

Module 



3 

1 

ICDJDEFR 


ICDJDEF1 

Entry Point 

ICDJUSFN 

Compiler 


1 

ICDJUSFN 


ICDJDEF2 

Entry Point 

ICDJUSFN 

compiler 


1 

ICDJUSFN 


ICDJDEXT 

Entry Point 

ICDJNUCL 

Compiler 


1 

ICDJNUCL 


ICDJDFRM 

Entry Point 

ICDJNUCL 

Compiler 1 


1 

ICDJNUCL 


ICDJDIM 

Entry Point 

ICDJVERB 



1 

ICDJVERB 


ICDJDIMG 


ICDJNUCL 

Compiler 

3,4 

1 

ICDJNUCL 


ICDJEND 

Entry Point 

ICDJDEFR 


3 

1 

ICDJDEFR 


ICDJERR 

Module 


Compiler 

3,4 

1 

ICDJERR 


ICDJERRN 

Entry Point 




1 

ICDJERR 


ICDJERRP 

Entry Point 

ICDJERR 

Compiler 


1 

ICDJERR 


ICDJERRS 

Entry Point 

ICDJERR 

Compiler 

4 

1 

ICDJERR 


ICDJERRT 

Entry Point 

ICDJERR 

Compiler 1 


I 

ICDJERR 



Entry Point 

ICDJDEFR 


3 

1 

ICDJDEFR 


i___ 

L-__ 

_ 

-,- 

i_ 

_1— 


i 
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Table 7. vs BASIC Component Directory (Part 2 of 8) 


1 

Name 

i— 

Type 

i— 

Module 

1- 

Component 

i- 

MO Diagram 

-.T 

1 

1 

Microfiche 

—■l 

i 

l 

ICDJFBN1 

Entry Point 

ICDJFUTS 

Compiler 


I 

1 

ICDJFUTS 

1 

ICDJFBN2 

Entry Point 

ICDJFUTS 

Compiler 


1 

ICDJFUTS 


ICDJFCAT 

Entry Point 

ICDJFUTS 

Compiler 


1 

ICDJFUTS 


ICDJF EXT 

Entry point 

ICDJFUTS 

Compiler 


1 

ICDJFUTS 


ICDJFGEN 

Entry Point 

ICDJFUTS 

Compiler 


1 

ICDJFUTS 


ICDJFMLA 

Entry Point 

ICDJNUCl 

Compiler 


1 

ICDJNUCl 


ICDJFNE1 

Entry Point 

ICDJUSFN 

Compiler 


1 

ICDJUSFN 


ICDJFNE2 

Entry Point 

ICDJUSFN 

Compiler 


1 

ICDJUSFN 


ICDJFOR 

Entry Point 

ICDJNUC2 

Compiler 


1 

ICDJNUC2 


ICDJFORM 

Entry Point 

ICDJDEFR 

Compiler 

3 

1 

ICDJDEFR 


ICDJFRM2 

Entry Point 

ICDJNUCl 

Compiler 


1 

ICDJNTJC1 


ICDJFRM3 

Entry Point 

ICDJNUCl 

Compiler 


1 

ICDJNUCl 


ICDJFRM5 

Entry Point 

ICDJNUCl 

Compiler 


1 

ICDJNUCl 


ICDJFUNY 

Entry Point 

ICDJFUTS 

Compiler 


1 

ICDJFUTS 


ICDJFUTS 

Module 


Compiler 


1 

ICDJFUTS 


ICDJGET 

Entry Point 

ICDJIOVB 

Compiler 


1 

ICDJIOVB 


ICDJGOSB 

Entry Point 

ICDJNUC4 

Compiler 


1 

ICDJNUC4 


ICDJGOTO 

Entry Point 

ICDJNUC4 

Compiler 


1 

ICDJNUC4 


ICDJIF 

Entry Point 

ICDJNUC5 

Compiler 


1 

ICDJNUC5 


ICDJIF1 

Entry Point 

ICDJNUC5 

Compiler 


1 

ICDJNUC5 


ICDJIF2 

Entry Point 

ICDJNUC5 

Compiler 


1 

ICDJNUC5 


I CD JI MAG 

Entry Point 

ICDJDEFR 

Compiler 

3 

1 

ICDJDEFR 


ICDJINFO 

Module 


Compiler 


1 

ICDJINFO 


ICDJINPT 

Entry Point 

ICDJIOVB 

Compiler 


1 

ICDJIOVB 


ICDJIOVB 

Module 


Compiler 

4 

1 

ICDJIOVB 


ICDJLET 

Entry Point 

ICDJNUC2 

Compiler 


1 

ICDJNUC2 


ICDJLINE 

Entry Point 

ICDJNUCL 

Compiler 

4 

1 

ICDJNUCL 


ICDJMATD 

Entry Point 

ICDJMATV j 

Compiler 


1 

ICDJMATV 


ICDJMATV 

Module 

1 

Compiler | 

4 

1 

ICDJMATV 


I CD JN EXT 

Entry Point 

ICDJNUC3 j 

Compiler 


1 

ICDJNUC3 


’ ICDJNDCL 

Module 


Compiler | 

3,4 

1 

ICDJNUCL 


ICDJNUC1 

Module 


Compiler 


1 

ICDJNUCl 


ICDJNOC2 

Module 


Compiler 

4 

1 

ICDJNUC2 


ICDJNUC3 

Module 


Compiler | 

4 

1 

ICDJNUC3 


ICDJNUC4 

Module 


Compiler 

4 

1 

ICDJNUC4 


ICDJNUC5 

Module 


Compiler | 

4 

1 

ICDJNUC5 


ICDJON 

' Entry Point 

ICDJVERB 

Compiler | 


1 

ICDJVERB 


ICDJOPEN 

Entry Point 

ICDJIOVB 

Compiler 


1 

ICDJIOVB 


ICDJPAUS 

Entry Point 

ICDJIOVB 

Compiler 

1 

1 

ICDJIOVB 


ICDJPRNT 

Entry Point 

ICDJIOVB 

Compiler 


1 

ICDJIOVB 


ICDJPOT 

Entry Point 

ICDJIOVB 

Compiler 


1 

ICDJIOVB 


ICDJRDIM 

Entry Point 

ICDJMATV 

Compiler 

1 

1 

ICDJMATV 


ICDJREAD 

Entry Point 

ICDJIOVB 

Compiler 


I 

ICDJIOVB 


ICDJRETN 

Entry Point 

ICDJUSFN 

Compiler 

1 

1 

ICDJUSFN 


ICDJRETV 

Entry Point 

ICDJUSFN 

Compiler 


1 

ICDJUSFN 


ICDJRSET 

Entry Point 

ICDJIOVB 

Compiler 


1 

.ICDJIOVB 


ICDJRSTO 

Entry Point 

ICDJ 10 VB 

Compiler 


1 

ICDJIOVB 


ICDJRONA 

Module 


Compiler 

3 

1 

ICDJRUNA 


ICDJSCN1 

Entry Point 

ICDJNUCl 

Compiler 


1 

ICDJNUC1 


ICDJSCN2 

! Entry Point 

ICDJNUCl 

Compiler 


1 

ICDJNUCl 


ICDJSTOP 

Entry Point 

ICDJVERB 

Compiler 


1 

ICDJVERB 


ICDJTFN 

Entry Point 

ICDJNUCL 

Compiler 


1 

ICDJNUCL 


ICDJTFOR 

Entry Point 

ICDJNUCL 

Compiler 


1 

ICDJNUCL 


ICDJTRD 

Entry Point 

ICDJNUCL 

Compiler 


1 

ICDJNUCL 


ICDJOSE 

Entry Point 

ICDJVERB 

Compiler 


I 

ICDJVERB 


ICDJUSFN 

i_i 

Module 

i _i 

_ l 

Compiler 

_ i 

4 

1 

_ 1 _ 

ICDJUSFN 
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Table 7. VS BASIC Component Directory (Part 3 of 8) 


1- 

Name 

-1 

Type 

r— .H 

Module 

.— — 

Component 

r- - 

MO Diagram 

_ 

r~ 

Microfiche 

—i 

i 

TCDJVAL1 

Entry Point 

ICDJNUC1 

Compiler 

— 

-1 


ICDJNUC1 


ICDJVAL2 

Entry Point 

ICDJNUC1 

Compiler 




ICDJNUC1 


ICDJVAL3 

Entry Point 

ICDJNUC1 

Compiler 




ICDJNUC1 


ICDJVAL4 

Entry Point 

ICDJNUC1 

Compiler 




ICDJNUC1 


ICDJVAL5 

Entry Point 

ICDJNUC1 

Compiler 




ICDJNUC1 


ICDJVABL 

Entry Point 

ICDJVREC 

Compiler 




ICDJVEXC 


ICDJVERB 

Modu le 


Compiler 

4 



ICDJVERB 


ICDJVREC 

Module 


Compiler 

4 



ICDJVREC 


ICDJVRD 

Entry Point 

ICDJVREC 

Compiler 




ICDJVREC 


ICDJVRRD 

Entry Point 

ICDJVREC 

Compiler 




ICDJVREC 


ICDJVRWR 

Entry Point 

ICDJVREC 

Compiler 




ICDJVREC 


ICDJVWRT 

Entry Point 

ICDJVREC 

Compiler 




ICDJVREC 


ICDKACS 

Entry Point 

ICDKSSUB 

Library 




ICDKSSUB 


ICDKASN 

Entry Point 

ICDKSSUB 

Library 




ICDKSSUB 


ICDKATN 

Entry Point 

ICDKSSUB 

Library 




ICDKSSUB 


ICDKBFTB 

Module 


Library 




ICDKBFTB 


ICDKCHN 

Entry Point 

ICDKERR 

Library 




ICDKERR 


ICDKCLK 

Entry Point 

ICDKGSUB 

Library 




ICDKGSUB 


ICDKCLOS 

Entry Point 

ICDKIOVB 

Library 

6 



ICDKIOVB 


ICDKCNVT 

Module 


Library 

6 



ICDKCNVT 


ICDKCOS 

Entry Point 

ICDKSSUB 

Library 




ICDKSSUB 


ICDKCOT 

Entry Point 

ICDKSSUB 

Library 




ICDKSSUB 


ICDKCPU 

Entry Point 

ICDKGSUB 

Library 




ICDKGSUB 


ICDKCSC 

Entry Point 

ICDKSSUB 

Library 




ICDKSSUB 


ICDKDABS 

Entry Point 

ICDKDSUB 

Library 




ICDKDSUB 


ICDKDACS 

Entry Point 

ICDKDSUB 

Library 




ICDKDSUB 


ICDKDASN 

Entry Point 

ICDKDSUB 

Library 




ICDKDSUB 


ICDKDAT 

Entry Point 

ICDKGSUB 

Library 




ICDKGSUB 


ICDKDATN 

Entry Point 

ICDKDSUB 

Library 




ICDKDSUB 


ICDKDBPR 

Entry Point 

ICDKPRNT 

Library 




ICDKPRNT 


ICDKDCOS 

Entry Point 

ICDKDSUB | 

Library 




ICDKDSUB 


ICDKDCOT 

Entry Point 

ICDKDSUB 

Library | 




ICDKDSUB 


ICDKDCSC 

Entry Point 

ICDKDSUB 

Library 


! 


ICDKDSUB 


ICDKDET 

Entry Point 

ICDKMINV 

Library 




ICDKMINV 


ICDKDEXP 

Entry Point 

ICDKDSUB 

Library 




ICDKDSUB 


ICDKDHCS 

Entry Point 

ICDKDSTJB' 

Library 


1 


ICDKDSUB 


ICDKDHSN 

Entry Point i 

ICDKDSUB 

Library 


! 


ICDKDSUB 


ICDKDHTN 

Entry Point 

ICDKDSUB 

Library 




ICDKDSUB 


ICDKDLGT 

Entry Point 

ICDKDSUB 

Library 




ICDKDSUB 


ICDKDLOG 

Entry Point 

ICDKDSUB 

Library 




ICDKDSUB 


ICDKDLTW 

Entry Point 

ICDKDSUB 

Library 




ICDKDSUB 


ICDKDMAX 

Entry Point 

ICDKDSUB 

Library 




ICDKDSUB 


ICDKDMIN 

Entry Point 

ICDKDSUB 

Library 




ICDKDSUB 


ICDKDOT 

Entry Point 

ICDKMAT 

Library 




ICDKMAT 


ICDKDPWR 

Entry Point 

ICDKDSUB 

Library 




ICDKDSUB 


ICDKDSEC 

Entry Point 

ICDKDSUB 

Library 




ICDKDSUB 


ICDKDSIN 

Efttry Point 

ICDKDSUB 

Library 




ICDKDSUB 


ICDKDSQR 

Entry Point 

ICDKDSUB 

Library 




ICDKDSUB 


ICDKDSUB 

Module 


Library 

5 



ICDKDSUB 


ICDKDTAN 

Entry Point 

ICDKDSUB 

Library 




ICDKDSUB 


ICDKETAB 

Entry Point 

ICDKETOF 

Library 




ICDKETOF 


ICDKERR 

Module 


Library 

5 



ICDKERR 


ICDKERRR 

Entry Point 

ICDKERR 

Library 

5 



ICDKERR 


ICDKERRS 

Entry Point 

ICDKERR 

Library 

| 5.6 



ICDKERR 


ICDKERRT 

Qitry Point 

ICDKERR 

Library 

5 



ICDKERR 


ICDKETF2 

Entry Point 

ICDKETOF 

Library 

7 



ICDKETOF 


ICDKETOP 

Module 


Library 

i 6,7 


i 

ICDKETOF 


ICDKEXP 

Entry Point 

ICDKSSUB 

Library 




ICDKSSUB 


ICDKFSCN 

Entry Point 

ICDKIOVB 

Library 

6,8 



ICDKIOVB 


ICDKGET 

Entry Point 

ICDKIOVB 

| Library 

6 

i 

ICDKIOVB 


ICDKGSUB 

Module 


Library 

5 

i 


ICDKGSUB 


ICDKHCS 

Entry Point 

ICDKSSUB 

Library 


i 


ICDKSSUB 



* _ _ j_ i - 1 - 1-l 
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Table 7• vs BASIC Component Directory (Part 4 of 8) 

i -1-1— - i-1- 1 -— } 


Name 

Type 

Module 

Component 

. _ 

MO Diagram 

i 

Microfiche ! 

i 

ICDKHSN 

Entry Point 

ICDKSSUB 

Library 

- r~ 

1 

ICDKSSUB | 

ICDKHTN 

Entry Point 

ICDKSSUB 

Library 



ICDKSSUB j 

1 ICDKIDX 

Entry Point 

ICDKGSUB 

Library 



ICDKGSUB 

ICDKINPT 

Module 


Library 

5,7 


ICDKINPT j 

ICDKINTP 

Module 


Library 

5 


ICDKINTP | 

ICDKIOVB 

Module 


Library 

5,6 


ICDKIOVB | 

ICDKJDY 

Entry Point 

ICDKGSUB 

Library 



ICDKGSUB j 

ICDKKLN 

Module 


Library 



ICDKKLN | 

ICDKKPS 

Module 


Library 



ICDKKPS | 

ICDKLEN 

Entry Point 

ICDKGSUB 

Library 



ICDKGSUB | 

ICDKLGT 

Entry Point 

ICDKSSUB 

Library 



ICDKSSUB j 

ICDKLOG 

Entry Point 

ICDKSSUB 

Library 



ICDKSSUB | 

ICDKLTW 

Entry Point 

ICDKSSUB 

Library 



ICDKSSUB j 

ICDKMADD 

Entry Point 

ICDKMAT 

Library 



ICDKMAT | 

I CD KM AS N 

Entry Point 

ICDKMAT 

Library 



ICDKMAT j 

ICDKMASR 

Entry Point 

ICDKMAT 

Library 



ICDKMAT I 

ICDKMAT 

Module 


Library 



ICDKMAT 

ICDKMAX 

Entry Point 

ICDKSSUB 

Library 



ICDKSSUB 

ICDKMDSR 

Entry Point 

ICDKMAT 

Library 



ICDKMAT 

ICDKMIDN 

Entry Point 

ICDKMAT 

Library 



ICDKMAT 

I CD KM IN 

Entry Point 

ICDKSSUB 

Library 



ICDKSSUB 

ICDKMINV 

Module 


Library 



ICDKMINV 

ICDKMMUL 

Entry Point 

ICDKMAT 

Library 



ICDKMAT 

I CD KM SC A 

Entry Point 

ICDKMAT 

Library 



ICDKMAT 

ICDKMSUB 

Entry Point 

ICDKMAT 

Library 



ICDKMAT 

I CD KM TON 

Entry Point 

ICDKMAT 

Library 



ICDKMAT 

ICDKNCPD 

Module 


Library 



ICDKNCPD 

ICDKNUM 

Entry Point 

ICDKGSUB 

Library 



ICDKGSUB 

ICDKON 

Entry Point 

ICDKERR 

Library 

5 


ICDKERR 

* ICDKOPEN 

Entry Point 

ICDKIOVB 

Library 

6 


ICDKIOVB 

ICDKOPN1 

Qitry Point 

ICDKIOVB 

Library 

6 


ICDKIOVB 

ICDKORGE 

Module 


Library 

2,5,9 


ICDKORGE 

ICDKPLIN 

Module 


Library 

7 


ICDKPLIN 

ICDKPRD 

Entry Point 

ICDKMAT 

Library 



ICDKMAT 

ICDKPRNT 

Module 


Library 

7 


ICDKPRNT 

ICDKPOT 

Entry Point 

ICDKIOVB 

Library 

6 


ICDKIOVB 

ICDKPWR 

Entry Point 

ICDKSSUB 

Library 



ICDKSSUB 

I CD KR DM1 

Entry Point 

ICDKMAT 

Library 



ICDKMAT 

I CD KR DM2 

Qitry Point 

ICDKMAT 

Library 



ICDKMAT 

ICDKREAD 

Module 


Library 



ICDKREAD 

ICDKRLN 

Module 


Library 



ICDKRLN 

ICDKRND 

Qitry Point 

ICDKSSUB 

Library 



ICDKRND 

ICDKRSET 

Entry Point 

ICDKIOVB 

Library 

6 


ICDKIOVB 

ICDKRUNX 

Qitry Point 

ICDKERR 

Library 

3,5 


ICDKERR 

ICDKRUNY 

Entry Point 

ICDKERR 

Library 

5 


ICDKERR 

I CD K SEC 

Entry Point 

ICDKSSUB 

Library 



ICDKSSUB 

ICDKSIN 

Entry Point 

ICDKSSUB 

Library 



ICDKSSUB 

ICDKSQR 

Entry Point 

ICDKSSUB 

Library 



ICDKSSUB 

ICDKSSUB 

Module 


Library 

5 


ICDKSSUB 

ICDKSTR 

Entry Point 

ICDKGSUB 

Library 



ICDKGSUB 

XCDKSUM 

Entry Point 

ICDKMAT 

Library 



ICDKMAT 

ICDKTAN 

Entry Point 

ICDKSSUB 

Library 



ICDKSSUB 

ICDKTIM 

Entry Point 

ICDKGSUB 

Lite ary 



ICDKGSUB 

ICDKTIO 

Entry Point 

ICDKPRNT 

Library 

7 


ICDKPRNT 

ICDKTOUT 

Module 


Library 

7 


ICDKTOUT 

ICDKVCLS 

Entry Point 

ICDKVIOR 

Library 

8 


ICDKVIOR 

ICDKVDEL 

Entry Point | 

ICDKVIOR 

Library 

8 


ICDKVIOR 

ICDKVEND 

Entry Point 

ICDKVIOR 

Library 

8 


ICDKVIOR 

I CD KVI OR 

Module 


Liteary 

5,8 


ICDKVIOR 

ICDKVOPN | 

Entry Point 

ICDKVIOR 

Liteary 

8 


ICDKVIOR 

ICDKVRD | 

Entry Point j 

ICDKVIOR 

Library 

8 


ICDKVIOR 

ICDKVRST | 

Entry Point \ 

ICDKVIOR 

Library 

8 


ICDKVIOR 

ICDKVRRD 

Qitry Point 

ICDKVIOR 

Library 

8 


ICDKVIOR 

ICDKVRWR 

Entry Point 

ICDKVIOR 

Library 

8 


ICDKVIOR 

ICDKVTIO 

Entry Point 

ICDKVIOR 

Library 

8 


ICDKVIOR 

ICDKVWRT | 

Entry Point 

ICDKVIOR 

Library 

8 

i 

ICDKVIOR 


■ - i. —_ — ■-*— - - -- ■ * - ■ * — - - - « 
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Table 7. VS BASIC Component Directory {Part 5 of 8) 


r- 

1 

i 

Name 

i 

Type 

1 

■ 

Hodule 

— i- 

|Component 

1 ______ 

n- 

| MO Diagram 

1 _ _ _ - 

“1- 

1 

1 

Hicrofiche 

— i 

i 

|— 

I CD LB KO 

i 

Nodule 

— 

1 


1 

|Debug 

j 9 

1 

I 

ICDKLBKO 



ICDLFQO 

i 

Nodule 

1 


j Debug 

1 9 

1 

ICDLFQO 



ICDLISTO 

i 

Nodule 

1 


j Debug 

1 9 

1 

ICDLISTO 



ICDLSSCN 

i 

Module 

1 


1 Debug 

1 9 

1 

ICDLSSCN 



ICDLUTIL 

« 

Module 

1 


j Utility 

1 11 

1 

ICDLUTIL 



ICDMODE 

i 

Entry Point 

I 

ICDHSSG 

j Debug 

I 9 

\ 

ICDMSSG 



ICDHSSG 

i 

Module 

1 


J Debug 

1 9 

\ 

ICDHSSG 



ICDMSSGS 

i 

Nodule 

1 


|Debug 

i 

1 

ICDMSSGS 



ICDNAMLO 

i 

Nodule 

1 


j Debug 

i 

1 

ICDNAMLO 



ICDNSCAN 

\ 

Nodule 

1 


|Debug 

i 

1 

ICDNSCAN 



I CD OB BY 

i 

Nodule 

1 


j Debug 

1 9 

1 

ICDOBEY 



ICDOFFO 

i 

Nodule 

1 


|Debug 

1 9 

1 

ICDOFFO 



ICDOFFWO 

i 

Nodule 

1 


j Debug 

1 9 

1 

ICDOFFWO 



ICDONITR 

i 

Nodule 

1 


|Debug 

1 9 

1 

ICDONITR 



ICDON02 

i 

Entry Point 

1 

ICDONITR 

j Debug 

1 

1 

ICDONITR 



ICDOH03 

i 

Entry Point 

1 

ICDONITR 

|Debug 

1 

1 

ICDONITR 



ICDSMCK 

\ 

Nodule 

I 


|Debug 

1 

1 




ICDPCLS 

i 

Module 

1 


|Executor 

1 3 

1 

ICDPCLS 



ICDPEXEC 

i 

Nodule 

1 


IVSPC Executor| 1-8 

1 

ICDPEXEC 



ICDPOPN 

i 

Nodule 

1 


|Executor 

1 3 

1 

ICDPOPN 



ICDPPENT 

i 

Nodule 

1 


j Executor 

1 3 

1 

ICDPPENT 



ICDPRSCN 

« 

Nodule 

1 


j Debug 

1 9 

1 

ICDPRSCN 



I CD PS CL 

i 

Nodule 

1 


|Debug 

1 9 

1 

ICDPSCL 



ICDPURGO 

i 

Hodule 

1 


j Debug 

i 

1 

ICDPORGO 



ICDPVENT 

i 

Module 

1 


|Executor 

1 3 


ICDPVENT 



ICDQEXEC 

i 

Nodule 

1 


| T30 

| 1-8 

1 

ICDQEXEC 




i 


1 


j Executor 

i 

1 




ICDQRNME 

i 

Module 

1 


|RENOM 

1 io 

1 

ICDQRNME 



ICDQRNMS 

i 

Nodule 

1 


IRENUM 

1 10 

1 

ICDQRNMS 



ICDQVCLS 

i 

Hodule 

1 


| VSAM 

1 

1 

ICDQVCLS 



ICDQVDEL 

i 

Hodule 

1 


\ VSAM 


1 

ICDQVDEL 



ICDQVENT 

i 

Hodule 

\ 


| VSAH 

1 

1 

ICDQVENT 



ICDQVERR 

i 

Nodule 

1 


| VSAM 

1 

1 

ICDQVERR 



ICDQVGET 

i 

Nodule 

1 


1 VSAM 

1 

t 

ICDQVGET 



ICDQVOPN 

i 

Hodule 

1 


| VSAM 

1 

1 

ICDQVOPN 



ICDQVPNT 

i 

Nodule 

1 


| VSAH 

1 

1 

ICDQVPNT 



ICDQVPUT 

i 

Hodule 

1 


| VSAM 

1 

1 

ICDQVPUT 



ICDQWCLS 

i 

Entry Point 

1 

ICDQWCLS 

|Executor 

1 

1 

ICDQWCLS 



ICDQWDEL 

i 

Entry Point 

1 

ICDQWDEL 

j Executor 

1 

1 

ICDQWDEL 



ICDQWENT 

i 

Entry Point 

1 

ICDQWENT 

j Executor 

1 

1 

ICDQWENT 



ICDQWERR 

i 

Entry Point 

\ 

ICDQWERR 

|Executor 

1 

1 

ICDQWERR 



ICDQWGET 

i 

Entry Point 

1 

ICDQWGET 

|Executor 

1 

1 

ICDQWGET 



ICDQWOPN 

i 

Entry Point 

1 

ICDQWOPN 

|Executor 

1 

1 

ICDQWOPN 



ICDQWPNT 

i 

Entry Point 

1 

ICDQWPNT 

|Executor 

1 

1 

ICDQWPNT 



ICDQWPOT 

i 

Entry Point 

1 

ICDQWPOT 

|Executor 

1 

1 

ICDQWPOT 



ICDQZCLS 

i 

Hodule 

1 


|DOS VSAM 

1 

1 

ICDQZCLS 



ICDQZDEL 

i 

Hodule 

1 


|DOS VSAM 

1 

1 

ICDQZDEL 



ICDQZENT 

i 

Hodule 

1 


|DOS VSAH 

1 

1 

ICDQZENT 



ICDQZEPR 

i 

Hodule 

1 


|DOS VSAM 

1 

1 

ICDQZERR 



ICDQZGET 

i 

Hodule 

1 


|DOS VSAH 

1 

1 

ICDQZGET 



ICDQZOPN 

i 

Hodule 

1 


I DOS VSAM 

1 

1 

ICDQZOPN 



ICDQZPNT 

i 

Hodule 

1 


|DOS VSAH 


1 

ICDQZPNT 



ICDQZPOT 

i 

Hodule 

1 


|DOS VSAM 

1 

1 

ICDQZPUT 



ICDRONO 

i 

Hodule 

1 


1 Debug 

1 9 

1 

ICDRONO 



ICDSCAN 

i 

Hodule 

1 


j Debug 

1 9 

1 

ICDSCAN 



ICDSETO 

i 

Hodule 

1 


j Debug 

1 9 

1 

ICDSETO 



ICDSSCAN 

i 

Hodule 

1 


j Debug 

1 

! 

ICDSSCAN 



ICDSTCNV 

i 

Hodu le 

1 


1 Debug 

1 

1 

ICDSTCNV 



ICDSTSCN 

i 

Hodule 

1 


|Debug 

1 9 

t 

ICDSTSCN 



ICDTBACK 

i 

Nodule 

1 


j Debug 

1 

1 

ICDTBACK 



ICDTHSG 

i 

Entry Point 

1 

ICDMSSG 

| Debug 

1 

1 

ICDMSSG 



ICDTSCN 

i 

Hodule 

1 


| Debug 

1 

1 

ICDTSCN 



ICDTSRCH 

i 

Hodule 

1 


j Debug 

1 

1 

ICDYSRCH 


L- 


_L. 


_i_ 


_i_ 

1 ...-- 

_i_ 


—i 
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Table 7. VS BASIC Component Directory (Part 6 of 8) 


1— 

1 

1 

Name 

“1- 

| Type 


i 

Module 

—i- 

|Component 

i _ 

—T 

_ - i _ 

—1 - 

MO Diagram I Microfiche 

_ i _ 

—i 

1 

1— 

ICDWEXEC 

| Module 


i 


1 

| CMS 

1 

i 

1-8 

| ICDWEXEC 

* 



i 


i 


|Executor 

i 


i 



ICDTSTYP 

| Module 


i 


|Debug 

i 


| ICDTSTYP 



ICDVSCN 

| Module 


i 


I Debug 

i 


| ICDVSCN 



ICDWHENO 

| Module 


i 


|Debug 

i 

9 

| ICDWHENO 



ICDWHRO 

j Module 


i 


|Debug 

i 

9 

| ICDWHRO 



ICDWNSCN 

| Module 


i 


|Debug 

i 


| ICDWNSCN 



ICDWNTST 

j Module 


i 


j Debug 


9 

| ICDWNTST 



ICDYEXEC 

| Module 


i 


|OS/VS 

i 

1-8 

| ICDYEXEC 




1 


i 


j Executor 

i 


i 



ICDZEXEC 

| Module 


i 


|DOS/VS 

i 

1-8 

| ICDZEXEC 




1 


i 


|Executor 

i 


i 



ICDOASCN 

| Entry 

Po int 

i 

ICDPRSCN 

j Debug 

i 

9 

| ICDPRSCN 



ICDOBSCN 

| Entry 

Point 

i 

ICDPRSCN 

|Debug 

i 

9 

| ICDPRSCN 



ICDOCSCN 

| Entry 

Point 

i 

ICDPPSCN 

j Debug 

i 

9 

| ICDPRSCN 



ICD03SCN 

I Entry 

Po int 

i 

ICDPRSCN 

|Debug 

i 


| ICDPRSCN 



ICD04SCN 

| Entry 

Point 

i 

ICDPRSCN 

j Debug 

i 

9 

| ICDPRSCN 



ICD05SCN 

| Entry 

Po int 

i 

ICDPRSCN 

|Debug 

i 

9 

| ICDPRSCN 



ICD07SCN 

| Entry 

Point 

i 

ICDPRSCN 

|Debug 

i 


| ICDPRSCN 



I CD 08 SC N 

| Entry 

Point 

i 

ICDPRSCN 

|Debug 

i 

9 

i 



ICD09SCN 

j Entry 

Point 

i 

ICDPRSCN 

j Debug 

i 


| ICDPRSCN 



I CD 11 SCN 

| Entry 

Point 

! 

ICDPRSCN 

j Debug 

i 

9 

| ICDPRSCN 



ICD12SCN 

j Entry 

Point 

1 

ICDPRSCN 

|Debug 

i 

9 

| ICDPRSCN 



ICD13SCN 

| Entry 

Po int 

1 

ICDPRSCN 

|Debug 

i 

9 

| ICDPRSCN 



ICD15SCN 

| Entry 

Point 

1 

ICDPRSCN 

|Debug 

i 

9 

| ICDPRSCN 



ICD16SCN 

| Entry 

Po int 

1 

ICDPRSCN 

|Debug 

i 

9 

| ICDPRSCN 



ICD24SCN 

j Entry 

Point 

1 

ICDPRSCN 

|Debug 

i 


| ICDPRSCN 



ICD26SCN 

j Entry 

Point 

1 

ICDPPSCN 

| Debug 

i 

9 

| ICDPRSCN 



ICD27SCN 

| Entry 

Po int 

1 

ICDPRSCN 

|Debug 

i 

9 

| ICDPRSCN 



SPIEEXIT 

1 Entry 

Point 

1 

ICDQEXEC 

|Executor 

i 


j ICDQEXEC 




i 


1 

ICDWEXEC 

i 

i 


i ICDWEXEC 




i 


1 

ICDYEXEC 

i 

i 


| ICDYEXEC 




\ 


1 

ICDZEXEC 

i 

i 


| ICDZEXEC 



STAEEXIT 

| Entry 

Point 

1 

ICDQEXEC 

|Executor 

i 


| ICDQEXEC 




1 


1 

ICDWEXEC 

1 

i 


| ICDWEXEC 




1 


1 

ICDYEXEC 

1 

i 


| ICDYEXEC 




[ 


1 

ICDZEXEC 

1 

i 


| ICDZEXEC 



STAXEXIT 

| Entry 

Point 

1 

ICDQEXEC 

|Executor 

i 


| ICDQEXEC 




1 


1 

ICDWEXEC 

1 

i 


| ICDWEXEC 



SVCO 

| Entry 

Point 

1 

ICDQEXEC 

|Executor 

i 


| ICDQEXEC 




1 


1 

ICDWEXEC 

1 

i 


| ICDWEXEC 




1 


1 

ICDYEXEC 

1 

i 


| ICDYEXEC 




1 


i 

ICDPEXEC 

1 

i 


1 




1 


1 

ICDZEXEC 

1 

i 


| ICDZEXEC 



SVC1 

| Entry 

Point 

1 

ICDQEXEC 

|Executor 

i 


| ICDQEXEC 




1 


1 

ICDWEXEC 

1 

i 


| ICDWEXEC 




1 


1 

ICDYEXEC 

1 

i 


| ICDYEXEC 






1 

ICDPEXEC 

1 

i 


1 




1 


1 

ICDZEXEC 

( 

i 


| ICDZEXEC 



SVC 2 

| Entry 

Point 

1 

ICDQEXEC 

|Executor 

i 


| ICDQEXEC 




1 


1 

ICDWEXEC 

1 

i 


| ICDWEXEC 




1 


1 

ICDYEXEC 

1 

i 


| ICDYEXEC 




i 


1 

ICDPEXEC 

1 

i 


1 




1 


1 

ICDZEXEC 

1 

i 


j ICDZEXEC 



SVC 3 

| Entry 

Point 

1 

ICDQEXEC 

|Executor 

i 


| ICDQEXEC 




\ 


1 

ICDWEXEC 

1 

i 


| ICDWEXEC 




1 


1 

ICDYEXEC 

1 

i 


| ICDYEXEC 




1 


1 

ICDPEXEC 

1 

i 


1 




1 


1 

ICDZEXEC 

1 

i 


| ICDZEXEC 



SVC4 

| Entry 

Po int 

1 

ICDQEXEC 

|Executor 

i 


| ICDQEXEC 




| 


I 

ICDWEXEC 

1 

i 


| ICDWEXEC 




I 


1 

ICDYEXEC 

1 

• 


| ICDYEXEC 


J_ 


J_ 


1 

_1_ 

ICDPEXEC 

1 

_L 


1 

_i 
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Table 7. 

VS 

BASIC Component 

Directory 

(Part 7 of 8) 



n 

!__ 

Name 

1 

_L 

Type 

j 

Module 

~ j -J - 

[Component 1 MO Diagram j Microfiche 

n 

i 

i 


1 


i 

ICDZEXEC 

i i 

| ICDZEXEC 

—1 
i 

i 

SVC5 

1 

Entry Point 

i 

ICDQEXEC 

|Executor I 

| ICDQEXEC 

i 

4 


1 


i 

ICDWEXEC 

1 1 

| ICDWEXEC 

i 

1 


1 


i 

ICDYEXEC 

1 1 

| ICDYEXEC 




I 


1 

ICDPEXEC 

1 1 

i 


1 


1 


i 

ICDZEXEC 

1 1 

| ICDZEXEC 

i 

| 

SVC 6 

\ 

Entry Point 

i 

ICDQEXEC 

[Executor | 

| ICDQEXEC 


1 


1 


l 

ICDWEXEC 

i i 

| ICDWEXEC 


J 


1 

1 


j 

ICDYEXEC 

i 

| ICDYEXEC 




1 


1 

1 

ICDPEXEC 


1 


I 


1 


1 

ICDZEXEC 

i ! 

ICDZEXEC 



SVC 7 

1 

Entry Point 

1 

ICDQEXEC 

1 Executor 

1 ICDQEXEC 


| 


1 


| 

ICDWEXEC 

1 1 

| ICDWEXEC 




1 


i 

ICDYEXEC 

i i 

j ICDYEXEC 


1 


1 


1 

ICDPEXEC 

i i 

| 


1 


l 


1 

ICDZEXEC 

| | 

ICDZEXEC 


| 

SVC 8 

1 

Entry Point 

1 

ICDQEXEC 

Executor i 

1 ICDQEXEC 


1 


1 


1 

ICDWEXEC 

i « 

| ICDWEXEC 


1 


1 


1 

ICDYEXEC 

! 1 

1 ICDYEXEC 


1 


1 

1 


1 

ICDPEXEC 

1 1 

i 

1 




1 


1 

ICDZEXEC 

1 1 

i ICDZEXEC 


| 

SVC10 

1 

Entry Point 

1 

ICDQEXEC 

1 Executor 1 

| ICDQEXEC 




1 


1 

ICDWEXEC 

1 1 

| ICDWEXEC 


1 


1 


1 

ICDYEXEC 

1 i 

■ 1 

ICDYEXEC 


1 


1 


1 

i 

ICDPEXEC 

i 1 

l 


1 


I 


1 

ICDZEXEC 

i j 

| ICDZEXEC 


1 

SVC11 

1 

Entry Point 

1 

ICDQEXEC 

|Executor . 

j ICDQEXEC 


J 


1 


1 

ICDWEXEC 

1 

ICDWEXEC 


I 


1 


1 

ICDYEXEC 

I 1 

ICDYEXEC 


1 


1 


1 

ICDPEXEC 

I 

1 


i 


1 


1 

ICDZEXEC 

1 1 
i 

1 ICDZEXEC 


1 

SVC 12 

1 

Entry Point 

1 

ICDQEXEC 

1 Executor 

ICDQEXEC 


1 


1 


1 

ICDWEXEC 

i 

1 ICDWEXEC 


1 


1 


1 

i 

ICDYEXEC 

i 

1 ICDYEXEC 




1 


1 

ICDPEXEC 

i 

| 

I 

1 


1 

1 


I 

ICDZEXEC 


j ICDZEXEC 

1 


SVC 13 

1 

Entry Point 

i 

ICDQEXEC 

Executor * 

ICDQEXEC 


1 


1 


i 

ICDWEXEC 

i 1 

ICDWEXEC 




1 


1 

ICDYEXEC 

1 1 

i i 

1 ICDYEXEC 


| 


1 


1 

ICDPEXEC 

i 1 

1 

1 

1 




1 

ICDZEXEC 

i 

1 ICDZEXEC 

1 


svcm 

1 

1 

Entry Point 

1 

ICDQEXEC 

I Executor 

, ICDQEXEC 




1 


1 

ICDWEXEC 


1 ICDWEXEC 


1 


1 


| 

ICDYEXEC 

1 | 

1 ICDYEXEC 




1 


1 

ICDPEXEC 

| 1 

1 


1 


1 

1 


1 

ICDZEXEC 

| 

, ICDZEXEC 


1 

SVC 16 

1 

Entry Point 

1 

ICDQEXEC 

1 Executor , 

ICDQEXEC 




1 


| 

ICDWEXEC 

l i 

1 ICDWEXEC 


j 


1 


| 

ICDYEXEC 


1 ICDYEXEC 

1 

1 


l 


1 

ICDPEXEC 

i 

| 


1 


1 


I 

ICDZEXEC 

I 

j ICDZEXEC 


| 

SVC 18 

1 

1 

Entry .Point 

1 

ICDQEXEC 

1 Executor 1 

ICDQEXEC 


I 

1 


1 


I 

ICDWEXEC 

| 

ICDWEXEC 


I 


1 


1 

ICDYEXEC 


• ICDYEXEC 


I 


1 


I 

ICDPEXEC 

! i 



i 


1 


1 

ICDZEXEC 

I i 

| ICDZEXEC 



SVC21 

1 

Entry Point 

1 

ICDQEXEC 

1 Executor 1 

ICDQEXEC 


1 




1 

ICDWEXEC 

1 * 

I ICDWEXEC 


I 


1 


| 

ICDYEXEC 

I | 

| , ICDYEXEC 


1 1 


1 


1 

| 

ICDPEXEC 




1 


1 

1 


1 

ICDZEXEC 


ICDZEXEC 



SVC 2 2 

1 

Entry Point 

1 

ICDQEXEC 

| Executor , 

1 ICDQEXEC 


1 


1 

_L 


jL_ 

ICDWEXEC 

1 

_!_l_ 

J ICDWEXEC 
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Table 7. VS BASIC Component Directory 

(Part 8 of 8) 



r—- 1 -— 1 - 

| Name J Type | Module 

|-1_ _j— 

|Component 
-1- 

V 

| MO Diagram 
—1- 

1 1 ' 1 
| Microiiche | 

—I-1 



1 

1 


i 

i 

ICDYEXEC 

ICDPEXEC 

! 1 

1 1 

| ICDYEXEC 
| 



1 


1 

ICDZEXEC 

i 1 

| ICDZEXEC 


SVC23 

1 Entry 

Point 

i 

1 

ICDQEXEC 

Executor 

ICDQEXEC 



l 

i 


1 

ICDWEXEC 

i i 

1 ICDWEXEC 



1 

i 


i 

i 

ICDYEXEC 

ICDPEXEC 

i l 

| 

| ICDYEXEC 

| 



i 


1 

ICDZEXEC 


ICDZEXEC 


SVC 2 4 

1 Entry 

Point 

1 

ICDQEXEC 

1 Executor I 

ICDQEXEC 



1 

i 


1 

i 

ICDYEXEC 

ICDPEXEC 

! | 

ICDYEXEC 



l 


1 

ICDZEXEC 

1 

1 ICDZEXEC 


SVC 2 5 

I Entry 

Point 

1 

ICDQEXEC 

1 Executor | 

| ICDQEXEC 



1 


l 

i 

ICDYEXEC 

ICDPEXEC 


j ICDYEXEC 



1 


i 

ICDZEXEC 

| 1 

. ICDZEXEC 

1 

SVC 2 6 

l Entry 

Point 

i 

ICDQEXEC 

1 Executor j 

ICDQEXEC 



l 

l 


i 

i 

ICDYEXEC 

ICDPEXEC 

! I 

1 ICDYEXEC 

1 



1 


i 

ICDZEXEC 

J_i 

1 ICDZEXEC 

_i 
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DATA AREAS 


This section describes the data areas used by the VS BASIC Processor. Table 8 serves as 
an index to the data areas. It lists each label and the data area in which it is located 


Table 8. Data Area Directory (Part 1 of 14)I Table 8. Data Area 

Directory (Part 2 of 

14) 

i- 

| NAME 

T- 

| DATA AREA 

1 

i i NAME 

| DATA AREA 

I _ 

1 

_1 

} «o. 

j NUC 

~J j $lpdr — 

1 PRG(C) 

1 

1 

$i 

1 NUC 

1 $LPEB 

| PHG(C) 

1 

$2 

| NUC 

| $LTD3. 

| PRG(C) 

1 

r 

! $3 

| NUC 

1 j $LETB 

| PBG(C) 

1 

i 

! $4 

| NUC 

i St!D 

J PRG(C) 

1 

1 

! $5 

| NUC 

| * $HDH 

| PEG(C) 

1 

1 

1 * 6 

( NUC 

| } SHE 

| PBG(C) 

1 

j 

$ 7 

\ NUC 

J $MER 

\ PRG(C) 

1 

i 

! $8 

1 NUC 

$SD 

| PRG(C) 

1 

t 

, $9 

| NUC 

J $SDR 

| PRG(C) 

I 

i 

; s io 

| NUC 

J $SE 

i PRG(C) 

i 

; $n 

| NUC 

$SES 

| PRG(C) 

i 

1 

\ $12 

l NUC 

1 $STD 

| PRG(C) 

1 

» 

| $16 

| NUC 

J $STE 

| PRG(C) 

i 

i 

$17 

J NUC 

■ $so 

| PBG(C) 

9 

; $i8 

| NUC 

J I ISOB 

| PRG(C) 

1 

$22 

| NUC 

| $S4 

| PRG (C) 

1 

| 

$23 

| NUC 

$3 WE 

| PRG(C) 

1 

I 

$24 

| NUC 

1 AADJAR 

| PBG(C) 

1 

1 

$29 

1 NUC 

AARJPR 

J PRG 

l 

t 

$30 

| NUC 

} ABSHORK 

| PRG (C) 

1 

1 

| $36 

1 NUC 

1 { ARGADDR 

| ARGENTRY 

1 

l 

J $38 

i NUC 

J 1 ARGCLTB 

1 ARGENTRY 

1 

1 

{ $39 

| NUC 

{ J ARGCODB 

| ARGENTRY 

| 

$6° 

| NUC 

) { ARGEBR 

| OBJAREA 

1 

| 

J $90 

| NUC 

J | ARGOPNCD 

| ARGENTRY 

1 

l 

[ $100 

| HOC 

J J AHGPRCD 

1 ARGENTRY 

1 

ft 

I $200 

| NUC 

{ * ABGRSCD 

| ARGENTRY 

1 

ft 

f $255 

| NUC 

ARINTRP 

i PRG 

1 

i 

$256 

| NUC 

1 ARRBYT 

| PRG(C) 

9 

ft 

; srooo 

| NUC 

1 J ARRSVC 

| PRG (C) 

1 

t 

$2048 

| NUC 

ARRSVP 

I PRG 

9 

1 

* $4095 

| NUC 

| ARYDSCD1 

| ARGENTRY 

1 

1 

! $4096 

| NUC 

{ 1 ARYDSCD2 

| ARGENTRY 

1 

1 

! $32767 

| NUC 

1 ABYDSCL 

| ARGENTRY 

t 

ft 

{ $64000 

| NUC 

| ARYDSCHY 

| ARGENTRY 

1 

ft 

{ $AD 

| PRG(C) 

J ARYDSCND 

| ARGENTRY 

I 

1 

$A0B 

} PBG(C) 

J j ARYDSCOS 

| ARGENTRY 

1 

1 

! $AE 

| PHG(C) 

{ 1 AS LADD 

| PRG(C) 

1 

r 

J $AEfi 

l PBG(C) 

{ 1 ASLBASK 

| PRG(C) 

l 

I 

! $AU 

t PHG(C) 

ASLTH 

i PRG 

i 

I $A0H 

| PRG(C) 

J { ASHAX 

I PRG 

i 

ft 

J $AH 

| PRG(C) 

{ | ASPTR 

| PRG 

i 

j 

$AHB 

| PRG(C) 

1 J ASVCCTL 

J | 1 ATTNFLAG 

| PRG 

| PRG 

i 

i 

i 

1 $CD 

| PRG(C) 

• j AVEXT 

| PRG (C) 

1 

i 

* SCDfi 

| PfiG(C) 

• • AYFOR 

l PRG (C) 

1 

i 

i $CE 

| PfiG(C) 

1 1 avib 

f PRG (C) 

1 

i 

1 $CEB 

| PRG(C) 

1 1 AVLIN 

| PRG 

ft 

* $DD 

| PRG(C) 

J J AYVAR 

| PRG (C) 

i 

1 $DDR 

| PRG(C) 

* j BGT2 8 

| NUC 

1 

i 

1 $DE 

| PRG(C) 

} * B0T29 

| NUC 

l 

i- 

1 $DEB 

| PEG(C) 

! ! B13 

| NUC 

1 

■ 

1 $HDB 

| PRG(C) 

j 1 B13A15 

| NUC 

« 

■ 

* $HEB 

t PEG(C) 

! ! 814 

| NUC 

1 

i 

* $LCDB 

| PRG(C) 

* B14T15 

| NUC 

1 

t 

1 $LCER 

| PRG(C) 

• * B15 

| NUC 

I 

i 

1 $ld 

f PRG(C) 

{ 1 B16T31 

I NUC 

1 

a 

1 $LDB 

| PRG(C) 

J J B20T31 

| NUC 

1 

a 

1 $LE 

| PRG(C) 

B29T31 

| NUC 

1 

■ 

1 $LEB 

| PRG(C) 

J BASPROC 

| PRG 

1 

i 

< $LNDB 

| PBG(C) 

{ BASUSEH 

| PRG 

1 

1 

j ' $LNEB 

1 PRG(C) 

J BIFTAB 

1 ICDBIFTB 

1 
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Table 8* Data 
(Part 

Area 

3 of 

Directory 

14) 

Tattle 8. Data Area Directory 

1 (Part 4 of 14) 


i 

i 

NAME 

T" 

J 

DATA AREA 

1 | NAME 

1 » 

| DATA AREA 

l 


t 

BLKPAD 

i 

PRG(R) 

i i — -— 

1 j COMOASTB 

| COMREGN 



BLOC KMAX 


FILTAB 

1 | COMPABS 

| PRG 



BfiP 

i 

PRGA 

1 J COBP8 

| COMREGN 



BSDAT 

i 

PRG 

1 | COMPPTGT 

I COMREGN 



BSEXTPTR 

i 

PRG 

1 | COMPUTLP 

J COMREGN 



BSKE Y 

i 

PRG 

1 | COMQUAL 

| COMREGN 



BSLFORB 

i 

PRG 

i | CONSTA8 

| COMREGN 



BSLINCHN 

i 

PRG 

1 | CONSUBST 

1 COMREGN 



BSLINTAB 

i 

PEG 

1 | COBTRACE 

| COMREGN 



BSLINTB 

i 

PRG 

1 | COMWHNCN 

| COMREGN 



BSLNPTRS 

i 

PRG 

1 | COMZFLGS 

J COBREGN 



BSOBJ 

i 

PRG 

1 J CONCAT1 

| OBJAREA 



BSOVFLW 

i 

PRG 

1 ) CONS V A 

| PRGA 



BSPARMSV 

i 

PRG 

1 | CO NS VC 

| PRGA 



BSPEG 

i 

PRG 

1 | CONVENT 

| CNDTBL 



BSPRGA 

i 

PRG 

1 | CONVERSW 

| ESPACE 



BSSRC 

i 

PRG 

J | CPPLADDK 

| PRG 



BSUFUN 

i 

PRG 

1 | CSTART 

| PRG 



BS VARCN1 

i 

PRG 

1 | CTAB 

J NUC 



BSVARCN2 

j 

PRG 

1 ( CTLSV1 

| PRG 



BSVARPTR 

i 

PRG 

1 | CTLSV2 

| PRG 



BUCKET1 

i 

PRG(R) 

1 | CURB3REG 

| PRG(C) 



BUFDIS 

i 

FILTAB 

| | CURCTL 

| PRG (C) 



BUFF 

i 

VARCON 

| CURD AT 

1 PRG 



BUFFAHED 

i 

PRG 

| CURDEF 

J PflG(C) 



BUFFDLIM 

i 

PRG(R) 

1 | CURIN 

| FILTAB 



BUFFLNTH 

i 

PRG (R) 

1 | CURKEY 

| PRG 



BUFFRRAO 

1 

PRG(R) 

I | CURLINE 

| PRG(C) 



BUFFRRA4 

| 

PRG(R) 

1 | | CURRCI 

| VFILTAB 



BUFFSTRT 

i 

PRG(R) 

1 | DATAKEYS 

j PRG(C) 



BUFFWRK 

i 

PRG(R) 

1 | DATAWORD 

| ESPACE 



BUFLTH 

i 

PRG 

1 | DATE 

j PRG 



BUFPTfi 

i 

PRG 

1 | DATUM 

| PRGA 



CALLER 

i 

PRG ( R) 

1 | DBOGFLGS 

| PRG 



CALLNGTH 

i 

PRG (R) 

1 | DBUGNTRY 

| PRG 



CHAR 1 

i 

PRGA 

1 | DBUGRSRV 

| PRG 



CHAR2 

i 

PRGA 

• | DEBUGTAB 

| PRG 



CNOEBHSG 

i 

PRG(C) 

1 J DEFNAME 

| PRG (C) 



CNOLINE 

i 

PfiG(C) 

1 | DEFORCT 

| PRG(C) 



CNVTOUT 

i 

PfiG(R) 

1 | DBFSAV 

| PRG 



CNVTRET 

i 

PSG(R) 

1 | DIGIT 

| PRGA 



COMATNEB 

i 

COMREGN 

1 | DIRCHAIN 

| DIR 



COMATNLN 

i 

COMBEGN 

1 | DIREXSYM 

| DIR 



COMCASTB 

i 

COMB EGN 

1 | DIRNAME 

| DIR 



COMCNVTA 

i 

CONREGN 

1 | DKBFSIZE 

| NUC 



COMCPPL 

i 

COMBEGN 

1 | DTEMP 

| ESPACE 



COMCURPU 

< 

COMBEGN 

1 | DUPKYENT 

| CNDTBL 



COMCURST 

i 

COHREGN 

1 | E 

| VARCON 



COHDIRCN 

i 

COMBEGN 

1 | EACBA 

| ESPACE 



COMFMTA 

i 

COMREGN 

1 | EACTSEQ 

| ESPACE 



COMENDEB 

i 

COMBEGN 

t | EAREA 

| ESPACE 



COMFLAGS 

i 

COMREGN 

1 | EABEALN 

| ESPACE 



COHFLOW 

i 

COMBEGN 

1 | EC KEY A 

| ESPACE 



COMIFMTA 

1 

COMBEGN 

i | ECLSOPEN 

| ESPACE 



COHJUMP 

1 

COMBEGN 

• J ECURACT 

| ESPACE 



COHKPARP 

1 

CO MREGN 

■ | EFILENM 

| ESPACE 



COMKSCNP 

1 

COMBEGN 

1 | EFILENO 

| ESPACE 


\ 

COMLASST 

1 

COMBEGN 

• | EFMT 

| PEG (B) 



COMLSTDR 

1 

COMBEGN 

1 | EFORG 

| ESPACE 



COMLSTPU 

1 

COMREGN 

1 | EFBEE 

| ESPACE 



COMNASTB 

1 

COMB EGN 

1 | EKEYINCH 

| ESPACE 


i _ 

COMNVSTB 

1 

_ L 

COMBEGN 

( I ENAMELN 

1 | ENDDAT 

| ESPACE 

| PRG 

_i 
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Table 8. Data 

Area 

Directory 



(Part 

5 of 

14) 


r~ 

i 

L- 

NANE 

l 

1 

1 

DATA AREA 

-1 

« 

ENDLIN 

| 

1 

PRG(C) 



ENDVAR 

1 

PRG(C) 



EOFENT 

1 

CNDTDL 



EOPEN 

1 

ESPACE 



EOPNNODE 

1 

ESPACE 



EOPNSTAT 

1 

ESPACE 



EPARAMS 

1 

ESPACE 



EPLINCR 

1 

ESPACE 



ERADS 

1 

PRG(R) 



EREQST 

1 

ESPACE 



ERETNCOD 

1 

ESPACE 



ERKP 

1 

ESPACE 



ERNFLAG 

| 

PRG 



ERRC 

l 

| 

VARCON 



ERRCODE 

1 

ESPACE 



ERRF 


VARCON 



ERRL 

1 

VARCON 



ERRN 

1 

VARCON 



ERROCCUR 

1 

PRG(C) 



ERSVERRL 

1 

PRG(R) 



ERSVRET 

i 

PRG(R) 



ERSVRET2 

1 

PRG(R) 



ETYPE 

1 

ESPACE 



EVEXCEPT 

1 

ESPACE 



EXECSNIT 


FILTAB 



EXITDISP 

1 

FILTAB 



EXITDSP 

1 

ESPACE 



EXPON 

1 

PRGA 



EXSV 

1 

PRG(R) 



EXTDISP 

J 

EXTPTRS 



EXTEND 

1 

PRG 



EXTNQNS 

1 

PRGA 



FCNMBK 

1 

PRG 



FENDERfi 

1 

OBJ A REA 



FFHT 

1 

PRG(R) 



FILEMBB 


PRG 



FILENAME 

1 

FILTAB 



FILE BOM 

1 

FILTAB 



FILEPTR 

1 

ORG 



FILE2K 

1 

PRG 



FILLCHAR 


ESPACE 



FIX255 

1 

VARCON 



FLTFXM1 

1 

VARCON 



FLTHIM1 

1 

VARCON 



FLTPI180 

1 

VARCON 



PLTPLDS1 

I 

VARCON 



FLTO 

1 

VARCON 



FLT1 

1 

VARCON 



FLT2 


VARCON 



FLT3 

1 

VARCON 



FLT4 

1 

VARCON 



FLT5 

1 

VARCON 



FLT5S9 

1 

VARCON 



FLT6 

1 

VARCON 



FLT7 


VARCON 



FLT8 

1 

VARCON 



FLT9 

1 

VARCON 



FLT9S5 

1 

VARCON 



FLT32 

1 

VARCON 



PLT4 7 

1 

VARCON 



FLT180PI 


VARCON 



FLT32767 

1 

VARCON 



FHLASVA 

_L 

PRGA 

/, 
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6 of 

14) 


i 

i 

i__ 

NAME 

I 

j 

_ • 

DATA AREA 

i 

i 

FMLASVC 

1 

i 

PRGA 



FMLASVP 


PRG 



FMTFLG 

i 

PRG (R) 



POHHINCB 

i 

ESPACE 



FOasTACK 

j 

PRGA 



FORT HP 


PRG 



FPHCFLAG 


PRG 



PPTEHP 


PBG(R) 



FRSTBYTE 

j 

FILTAB 



FSTDAT 

i 

PRG(C) 



FSTDIN 

i 

PHG(C) 



FSTEXT 

i 

PRG(C) 



FSTERN 

i 

PRG(C) 



FTBK2K 

j 

PRG 



FTYPE 

i 

FILTAB 



GAL1 

i 

VARCON 



GENFLAG 

i 

PBG(C) 



GOSUBER 

i 

OBJAREA 



GOTOTMP 


PRG(R) 



GOTOTHP2 

i 

PRG (R) 



HASPTRS 

i 

PRGA 



HDRCDDRG 

i 

PRG(C) 



HDRCDSTD 

i 

PRG(C) 



HIREC# 

i 

VFILTAB 



HIUNITE 

i 

ESPACE 



H4 

i 

PBG(B) 



H8 


PRG (R) 



IBFPTB 

i 

PRG 



ID5VRC3 

i 

PBGA 



IF NT 

i 

PRG (R) 



IFRTHPO 

i 

PRG 



IFRTMP1 

i 

PRG 



IPRTMP2 

i 

PRG 



IFTBP 

i 

PRG 



INEND 


PRG 



IHNUHS 

i 

PRGA 



INCH 

t 

VARCON 



INFOBIF 

i 

INFOTAB 



INFOCD 

i 

INFOTAB 



INFOFLG 

i 

INFOTAB 



INFONAHE 

i 

INFOTAB 



INFONXT 


INFOTAB 



INFORESV 

i 

INFOTAB 



INPRES 

i 

FILTAB 



INPUTFNO 


PRG(R) 



INTCON 

i 

VARCON 



IOCNT 

i 

PRG(R) 



10 CODE 

i 

FILTAB 



IOERRENT 

i 

CNDTBL 



ITEHCNT 

i 

FILTAB 



JDYTOD 

i 

PRG(R) 



KROUTRET 

i 

PRG (R) 



LADDRESS 

i 

ESPACE 



LASTREC# 


VFILTAB 



L#2EB 

i 

ZiUTT 



LiFLGS 

i 

ZiUTT 



L#LANG 

i 

ZtUTT 



LIN2048 

i 

ZtUTT 



LiNLINE 

i 

ZiUTT 



LVOLANG 

i 

ZiUTT 



LiRTIHE 

i 

ZiUTT 



LiSADDfi 

i 

ZiUTT 


L 

LiSOURC 

__L 

ZiUTT 













Taule 8. Data Area Directory 
I (Part 7 of 14) 


1 

NAME 

- 1 — 

I 

DATA AREA 

— i 

i 


LtilDTH 

i 

Z# UTT 



LB KG 

i 

VARCON 



LCCDEF 

( 

NUC 



LCCHAIN 

i 

NUC 



LCCLOSE 

i 

NUC 



LCCMPA 

i 

NUC 



LCCTL 

j 

NUC 



LCDATA 

i 

NUC 



LCDDAT 

i 

NUC 



LCDEP2 

i 

NUC 



LCDEF 

i 

NUC 



LCDELETE 

j 

NUC 



LCDFRM 

i 

NUC 



LCDIM 

i 

NUC 



LCDIMAG 

j 

NUC 



LCEND 

i 

NUC 



LCERRN 

i 

NUC 



LCERRP 

i 

NUC 



LCERRS 

i 

NUC 



LCERRT 

i 

NUC 



LCEXIT 

i 

NUC 



LCFBN1 

i 

NUC 



LCFBN2 

i 

NUC 



LCFCAT 

i 

NUC 



LCFEXP 

i 

NUC 



LCFGEN 

i 

NUC 



LCFNE1 

i 

NUC 



LCFNE2 

i 

NUC 



LCFOR 

j 

NUC 



LCFORH 

i 

NUC 



LCFRH2 

( 

NUC 



LCFRM3 

i 

NUC 



LCRFM5 

i 

NUC 



LCFUNY 

i 

NUC 



LCGET 

i 

NUC 



LCG05UB 

i 

NUC 



LCGOTO 

i 

NUC 



LCIF1 

i 

NUC 



LCIF2 

i 

NUC 



LCIF 

i 

NUC 



LCIMAG 

i 

NUC 



LCINFO 

i 

NUC 



LCINPUT 

i 

NUC 



LCKACS 

i 

ICDBIFTB 



LCKASN 

t 

ICDBIFTB 



LCKATN 

i 

ICDBIFTN 



LCKATTN 

j 

ICDBIFTB 



LCKCHN 

i 

ICDBIFTB 



LCKCHR 

i 

ICDBIFTB 



LCKCLK 

i 

ICDBIFTB 



LCKCLOS 

i 

ICDBIFTB 



LCKCNVT 

i 

ICDBIFTB 



LCKCO 

i 

ICDBIFTB 



LCKCOT 

i 

ICDBIFTB 



LCKCPO 

i 

ICDBIFTB 



LCKCSC 

i 

ICDBIFTB 



LCKOACS 

i 

ICDBIFTB 



LCKOASN 

i 

ICDBIFTB 



LCKDAT 

i 

ICDBIFTB 



LCKDCOS 

i 

ICDBIFTB 



LCKDCOT 

i 

ICDBIFTB 



LCKDCSC 

i 

ICDBIFTB 


L_ 

LCKDEXP 

i 

ICDBIFTB 
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Table 8. Data Area Directory 
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i 

t 

NAME 

-1— 

1 

_ j. 

DATA AREA 

* 

1 

1 

•-— 

LCKDHCS 

i 

ICDBIFTB 

i 


LCKDHSN 

i 

ICDBIFTB 

i 


LCKDHTN 

i 

ICDBIFTB 

i 


LCKDLGT 

i 

ICDBIFTB 



LCKDLOG 

i 

ICDBIFTB 



LCKDLTW 

i 

ICDBIFTB 



LCKDMAX 

j 

ICDBIFTB 



LC KANIN 

i 

ICDBIFTB 



LCKDOT 

i 

ICDBIFTB 



LCKDPHB 

i 

ICDBIFTB 



LCKDSEC 

i 

ICDBIFTB 



LCKDSIN 

i 

ICDBIFTB 



LCKDSyR 

• 

ICDBIFTB 



LCKDTAN 

i 

ICDBIFTB 



LCKERRR 

i 

ICDBIFTB 



LCKERBS 

i 

ICDBIFTB 



LCKERRT 

i 

ICDBIFTB 



LCKETF2 

i 

ICDBIFTB 



LCKETF3 

i 

ICDBIFTB 



LCKETF4 

i 

ICDBIFTB 



LCKETOF 

i 

ICDBIFTB 



LCKPSCN 

i 

ICDBIFTB 



LCKGET 

i 

ICDBIGTB 



LCKHCS 

< 

ICDBIFTB 



LCKHSN 

i 

ICDBIFTB 



LCKHTN 

i 

ICDBIFTB 



LCKIDX 

i 

ICDBIFTB 



LCKINPT 

i 

ICDBIFTB 



LC K X NT P 

i 

ICDBIFTB 



LCKJDT 


ICDBIFTB 



LCKKLN 

i 

ICDBIFTB 



LCKKPS 

i 

ICDBIFTB 



LCKLEN 

i 

ICDBIFTB 



LCKLGT 

i 

ICDBIFTB 



LCKLOG 

i 

ICDBIFTB 



LCKLTW 

i 

ICDBIFTB 



LCKMADD 

i 

ICDBIFTB 



LCKMASN 

i 

ICDBIFTB 



LCKMASR 

i 

ICDBIFTB 



LCKMAX 

i 

ICDBIFTB 



LCKMDSR 

i 

ICDBIFTB 



LCKMIDN 

i 

ICDBIFTB 



LCKM IN 

i 

ICDBIFTB 



LCKM INF 

i 

ICDBIFTB 



LCKM HUL 

i 

ICDBIFTB 



LCKMSCA 

i 

ICDBIFTB 



LCKMSUB 


ICDBIFTB 



LCKMTRN 

i 

ICDBIFTB 



LCKNUM 

i 

ICDBIFTB 



LCKON 

i 

ICDBIFTB 



LCKOPEN 

i 

ICDBIFTB 



LCKORGE 

i 

ICDBIFTB 



LCKPLIN 

i 

ICDBIFTB 



LCKPRD 

i 

ICDBIFTB 



LCKPtffi 

i 

ICDBIFTB 



LCKRDM1 

i 

ICDBIFTB 


i| 

LCKBDM2 

i 

ICDBIFTB 


i: 

LCKREAD 

i 

ICDBIFTB 


| 

LCKRLN 

i 

ICDBIFTB 



LCKRND 

i 

ICDBIFTB 



LCRESET 

i 

ICDBIFTB 



LCKRUNX 

i 

ICDBIFTB 



LCKSEC 

i 

ICDBIFTB 

_r 
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Table 8. Data Area Directory 
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1 

1 

NAHE 

T - 

1 

i _ 

DATA AREA 

-i 

I 

LCKSIN 

1 

ICDBIFTB 



LCK SQR 

1 

ICDBIFTB 



LCKSUM 

1 

ICDBIFTB 



LCKTAN 

I 

ICDBIFTB 



LCKTIM 

1 

ICDBIFTB 



LCKTIO 


ICDBIFTB 



LCKTOUT 

1 

ICDBIFTB 



LCKYCL3 

1 

ICDBIFTB 



LCKVDEL 

1 

ICDBIFTB 



LCKVEXT 

1 

ICDBIFTB 



LCKVFND 

1 

ICDBIFTB 



LCKVNXT 

1 

ICDBIFTB 



LCKVOPN 

1 

ICDBIFTB 

l 

1 

LCKVRD 

l 

ICDBIFTB 

i 


LCKVRRD 

1 

ICDBIFTB 



LCKVRST 

1 

ICDBIFTB 



LCKVRWR 

1 

ICDBIFTB 



LCKVTIO 

1 

ICDBIFTB 



LCKV WRT 

1 

ICDBIFTB 



LCLET 


NUC 



LCMAT 

1 

NUC 



LCHATD 

1 

NUC 



LCNEXT 

J 

NUC 



LCNDC1 

1 

NUC 



LCOPEN 

1 

NUC 



LCPAUSE 

1 

NUC 



LC PRINT 

1 

NUC 



LCPUT 

1 

NUC 



LCRDIM 

1 

NUC 



LCREAD 

1 

NUC 



LCREREAD 

1 

NUC 



LCRESET 

1 

NUC 



LCHESTOB 

1 

NUC 



LCRETURN 

1 

NUC 



LCRETV 

1 

NUC 



LCREWRIT 

1 

NUC 



LORD N A 

1 

NUC 



LCSRCH 

1 

NUC 



LCSTART 

1 

ICDBIFTB 



LCSTOP 

1 

NUC 



LCTPN 

1 

NUC 



L£TRD 

1 

NUC 



LCTRD 

I 

NUC 



LC USE 

1 

NUC 



LCUSTB 

1 

NUC 



LCVRD 

1 

NUC 



LCWRITEP 

1 

NUC 



LETTMP 

1 

PRG 



LEVOABS 

1 

PRG(R) 



LCWRITEP 

1 

NUC 



LETT HP 

l 

PRG 



LEVOABS 

1 

PRG(R) 



LEVIABS 

1 

PRG (R) 



LEV3ABS 

1 

PfiG(R) 



LEVH1ABS 

i 

PRG (R) 



LPOHTBP 

1 

NUC 



LI PT BP 

1 

NUC 



LINCHN1 

1 

LINTAB 



LINCHN2 

1 

LINTAB 



LINCHN3 


LINCHN 



LINPNO 

1 

LINTAB 



LINOBJ 

1 

LINPTRS 


1_ 

LI NS A V 

1 

PRG A 
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(Part 

10 of 

14) 


i— 


1 


1,1 1 

i 

NAME 

1 

DATA AREA 

i 

a 


. 1 


-j 

f- 

LINSRCE 

1 

1 

LINTAB 

• 


LI NS VA 

1 

PRGA 



LINSVP 


PRG 



LINUM1 

1 

LINPTRS 



LINDM2 

1 

LINCHN 



LINWDTH 

1 

PRG 



LOCBRANC 

1 

PRG 



LOCWORD 

1 

ES PACE 



LRECLHAX 


FILTAB 



HASH 1 

1 

PRG (R) 



MASK 3 

1 

PRG (P) 



MASKM1 

1 

PBG(R) 



MASKM2 

1 

PRG(R) 

4 


HATDABS 

1 

PRG (C) 



MATDRC1 

1 

PRG (C) 



MATDRC3 

1 

PRG (C) 



MATH PI 

1 

PRG 



HATMP2 

1 

PRG 



MATRPSV 

1 

PRG 



HAXADDR 

i 

ESPACE 



NAXDGTS 

1 

PRG (R) 



HAXFILES 

1 

PRG 



HAXJSIZE 

1 

PRG 



HAXNBLIN 

1 

PRG (R) 



MIDCLK 

1 

PRG ( R) 



NODE 

1 

PRG (C) 



HODEFLAG 

1 

FILTAB 



H5GCNT 

I 

PRG 



NAHADDR 

1 

ICDNAHE 



NAHDIHS 

1 

ICDNANE 



NAHEOT 

1 

ICDNAHE 



NAHLEN 

J 

ICDNAHE 



NAHLNGTH 


PILTAB 



NAHHODE 

1 

ICDNAHE 



NAHNAHE 

1 

ICDNAHE 



NAHNODIH 

1 

ICDNAHE 



NAHTYPE 

1 

ICDNAHE 



NBLIN 

1 

PRG (R) 



NEEDBUF 

1 

PRG 



NNOVE 

1 

ESPACE 



NOERMSG 

1 

PRG 



NOKEYENT 

1 

CNDTBL 



NOLINE 

1 

PRG (C) 



NULLSTR 

J 

VARCON 



OBJPTR 

1 

PRG 



ONATTN 

1 

PRG(R) 



ONCELLS 

1 

PRG(R) 



ONERR 

1 

PRG (R) 



ONINERR 

1 

PRG (R) 



ONOFLOW 

1 

PRG (R) 



ONTARGET 

1 

PRG (R) 



ONUFLOW 

1 

PRG (R) 



ONZDIV 

1 

PRG(R) 



OP DS 

1 

PRGA 



OPENFLG 


FILTAB 



OPFLG 

1 

PRG 



OPRS 

1 

PRGA 



OPTIONS 

1 

PRG 



PADCHAR 

1 

PRG (R) 



PARMCNT 

1 

PRG(C) 



PA RH PTR 

1 

PRG 



PARfiTBL 

1 

PRGA 


1_ 

PARHCNT 

_L_ 

PRG(C) 
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1— 
1 

L_ 

NAME 

-j- 

1 

- - - I _ 

-1 

DATA AREA | 

i 

1- 

PARMPTR 

1 

1 

1 

PRG | 


PARMTBL 

1 

PRGA | 


PDMPBGN 

1 

PRG | 


PDMPEND 

1 

PRG | 


PHYSBUF 

1 

PILTAB | 


PHYSEND 

1 

PILTAB | 


PI 

1 

VABCON | 


PLINE 

1 

PRG(R) | 


PKBGN 

1 

PRG | 


PRINTFNO 

1 

PRG(R) | 


PSLTH. 

1 

PRG | 


PS MAX 

1 

PRG | 

1 

PSMIN 

1 

PRG 


PSREG 

1 

PRG 


PS3A V 

1 

PRG 


PSH1SV 


PRG 


PSW23V 

1 

PRG 


JTCHAR 

1 

PRG (C) 


RDABS 

1 

PRG(C) 


RDECNO1 

1 

PRG (R) 


RDECN02 

1 

PRG(R) 


RDIttRC1 

1 

PRG (C) 


RDIMRC3 

1 

PRG(C) 


RDIM1 

1 

PRG(R) 


BDIH2 

1 

PRG(R) 


RECCNT 

1 

PILTAB 


RECLNTH 

1 

VFILTAB 


RECOGNIZ 

1 

PRG 


BECRDEND 

1 

FILTAB 


REDIM 

1 

PRG(C) 


REPEBB1 

1 

IBJAREA 


REFERR2 

1 

IBJAREA 


RELREC# 

1 

VARCON 


RELHORK 

1 

PRG 


RESETFLG 

1 

FILTAB 


RETSa 

1 

PRG (C) 


RETSaSAV 

1 

PfiGA 


RETORN 

1 

ESPACE 


RETURNER 

1 

OBJAREA 


RND5EED 

1 

PRG(R) 


RNDTNP 

1 

PRG 


BUNPARH 

1 

PRG 


RUNPARMD 

| 

PRG 


RUNPARML 

1 

PRG 


SAVEBASE 

1 

PRG 


SAVERO 

1 

PRG 


SAVER15 

1 

PRG 


SAVESTOR 

1 

PRG 


SAVFOBMA 

1 

ESPACE 


SAVREG 

1 

PRG 


3AVRL0C 

J 

ESPACE 


SAVSWTCH 

1 

PRG 


SCNCODE 

1 

PRGA 


SCNZRP3 

1 

PRG 


SC NT HP 

1 

PRGA 


SCN1RA2 

1 

PRGA 


SCN1RA3 

1 

PRGA 


SCN1RC2 

1 

PRGA 


SCN1BP1 

1 

PRG 


SCN2RA2 

1 

PRGA 


SCN2RC2 

1 

PRGA 


SCN2BP1 

1 

PRG 

i_ 

SEQCHK 

1 

PRG 
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r~~ 

1 

i 

NAME 

-,- 

J DATA AREA 

1 

i 

r 

SIGN 

| PRG(R) 

« 


SLFORM 

| PRG 



SLOTSIZE 

1 VFILTAB 



SMASK1 

| NUC 



SMASK3 

1 NUC 



5PANSRCH 

| PRG(R) 



SQR2 

| VARCON 



SR CCR 

| PRG 



SRCLIN 

| PRG 



SRCPTR 

| PRG 



SREQST 

| PRG (C) 



SSLFORM 

| PRG(C) 



ST AT ES W 

1 PRG(C) 



STATTAB 

| PRG 

i 


ST CSV 

| PRGA 



STCTSV2 

| PRG 



ST DCMP 

| PRGA 



STKERR 

| OBJAREA 



STHBRAD 

| STMTABLE 



STMCOUNT 

1 STMTABLE 



STMEOT 

| STMTABLE 



STMFLAGS 

| STMTABLE 



STMFREU 

| STMTABLE 



STMLINNO 

| STMTABLE 



STMPUID 

| STMTABLE 



STMSCLAD 

| STMTABLE 



STORE 

| ESPACE 



STPRS 

| PRG 



STRLNG 

| PRG(H) 



STRSW 

| PRGA 



SUBSCR2 

| OBJAREA 



SUBSCR3 

| OBJAREA 



SUBS ERR 

1 OBJAREA 



SVCINST 

| PEG 



SVOBJRGl 

| LRG 



SVOBJRG4 

| PRG 



SVRP4 

| PRG 



SVSRCP 

| PRG 



SNITCH 

| PRGA 



SWPFLG 

| PRG 



SYNTYPE 

| PflG(C) 



THISCI# 

1 VFILTAB 



THISREC# 

1 VFILTAB 



THISUNIT 

1 VFILTAB 



TMBUF 

| PRG 



TOUTS# 

| PRG (R) 



TYPCODE 

| PRG(C) 



OFUNABG 

| UFUN 



UFUNDISP 

| UFUN 



UF0NPTR 

| PRG (R) 



UFUNWD5P 

| UFUN 



DFUNHORK 

i UFUN 



USCCH 

| PRG 



USEPARM 

| PRG 



UTTLOC 

| PRG 



VACBA 

| VFILTAB 



VACBLEN 

| VFILTAB 



VACSLAST 

1 VFILTAB 



VALRP2 

| PRG 



VALSN 

| PRG (C) 


i 

VAL4RA1 

j PfiG(C) 

1 

i 


_l_ 

i 
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Table 8. Data Area Directory I Table 8. Data Area Directory 

I (Part 1J of 141) . I (Part 14 of 14) 


1— 

1 

1 

NAME 

- , — 

1 

_ • 

DATA ABBA 

-1 

1 

i 

j NAME 

j 

DATA AREA 

i 

1 

VARCBASE 

1 

i 

PRG(C) 

• 

i 

1 VSBREL# 

-1- 

1 PRG 



VAREA 

i 

VPILTAB 

i 

| VSBSYS 

| PRG 



VAREALN 

i 

VPILTAB 

i 

| VTCODE 

J ESPACE 



VAREkLNP 

i 

VPILTAB 

i 

| VT IT EH 

| ESPACE 



VAREALNfi 

j 

VFILTAB 

i 

I VTL 

| ESPACE 



VAHEALNH 

i 

VPILTAB 


( VTLSUB 

| ESPACE 



VABEAHNL 


VFILTAB 

i 

I WBG 

| PRG(C) 



VAREAMXL 

\ 

VFILTAB 

i 

1 HCATCT1 

| PBGA 



VARENDA 

i 

VPILTAB 

i 

1 NCATLTHR 

| PBGA 



VABPTRS 

i 

PRGA 

i 

I HCATRESL 

| PRGA 



VCEXCEPT 

i 

VPILTAB 


1 WCATSAV 

) PBGA 



VCKEYA 

i 

VPILTAB 


1 HCMP 

| PRGA 



VCKEYLN 

i 

VFILTAB 

i 

1 MCOaCT 

| PRGA 



7CLEARA 

i 

VPILTAB 

i 

1 WCUfi 

i PRG (C) 



VCLEARLN 

i 

VFILTAB 

i 

1 WBXEC 

| PRGA 

j 


7COND 

i 

VFILTAB 

i 

1 WPLG 

] PBGA 

1 


7CURP0S 

i 

ESPACE 

j 

| HFLG2 

| PRGA 

1 

i 


7DATA 

i 

ESPACE 

i 

| HPMTLEV 

J PRGA 

1 


VDATASUB 

i 

ESPACE 

i 

WLTH 

| PRG(C) 

1 


VDEPLT 

i 

ESPACE 

i 

■ WLTHSAV 

| PBG(C) 

1 


VDINDEX 

i 

ESPACE 

i 

1 EPARLEV 

| PRGA 

1 


7DL 

i 

ESPACE 

i 

| fiSYM 

| PRGA 

1 

i 


7DLSUB 

i 

ESPACE 


| V9K 

1 PRGA 

1 


7DTYPE 

i 

ESPACE 

i 





7ERR0R 

i 

VFILTAB 

i 





VEXITDSP 

i 

VFILTAB 

i 





7EXLLEN 

i 

VFILTAB 

i 





VEXLSTA 

i 

PRG(R) 

i 





VFILESO 


VFILTAB 

i 





VFILNAHE 

i 

VFILTAB 

i 





VFIRSTFM 

i 

ESPACE 

i 





7PLAREA 

i 

PRG(R) 

i 





7FR0DE 

i 

VFILTAB 

i 





7P0HG 

i 

VFILTAB 

i 





7P0RHA 

i 

ESPACE 

i 





7FPROC 

i 

ESPACE 

i 





7PSPECA 

i 

ESPACE 

i 





7PTYPE 

i 

VFILTAB 

i 





PREYED 

i 

VFILTAB 

i 





VKEYLEN 

i 

VFILTAB 

i 





VKBYLH 


VFILTAB 

i 





7LAST 

i 

ESPACE 

j 





VLASTREG 

i 

VFILTAB 

i 





7LCOND 

i 

VFILTAB 

i 





7LDIFP 

i 

ESPACE 

i 





7LBXCEPT 

i 

VFILTAB 

i 





7LKEYA 

i 

VFILTAB 

i 





7L KEYED 

i 

VFILTAB 

i 





VLKBILI 

j 

VFILTAB 

i 





VLNARBA 

i 

VFILTAB 

i 





7NAMELH 

i 

VFILTAB 

j 





VHKEYA 

i 

ESPACE 

i 





VHO 

i 

ESPACE 

i 





VP LA I 

i 

PRG(E) 

i 





7RBAC0R 

i 

VPILTAB 

i 





VRBABHD 


VFILTAB 

i 





?RBALAST 

i 

VFILTAB 

i 





7REQST 

i 

VFILTAB 

i 





7RKP 

i 

VFILTAB 

i 




1 1 

7RPLA 


VFILTAB 

i 





7RPLLBN 

i 

VFILTAB 

i 





7RUNSAVE 

i 

ESPACE 

i 





7SBASCHK 

i 

HOC 

i 





7SBATTN 

i 

PEG 

i 





VS BID 

i 

PEG 

i 




L 

VSBLIB 

_ L 

PEG 

i 
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DATA AREA FORMATS 


'RG — COMMUNICATIONS REGION (COMPILATION AND RUN-TIME) 


PRG contains information for communicating within and between routines of the VS BASIC 
Processor, This information includes base addresses, dynamic storage areas that are used 
and shared by compiler and run-time routines. Areas of PRG that are used by the compiler 
and overlaid by the run-time routines are shown separately. 


PRG — Communications Region (Compilation and Run-time) 

i i i-—-1 

1000(0000)1001(0001) j | 

| ! ATTNFLAG J j 

- PRBGN | 


1- 

J040(0064) 

| VSBLIB 

I 

j 044 (0068) 
VSBATTN 

1- 

>048(0072) 
j VSBID 


[04C(0076) 

• PSPTR 

J 

-1 

1 

1 

1 

1 

1 

1 

1 

1 

1 i 

1048(0072) |04A(0074) |04B(0075) 

1 VSBSYS 1 VSBREL# 1 VSBSID 

_J____i_1__ 

“i 

1 

1 

j 

1 

1 

\ 

1 

050(0080) 

PLSTH 

!054 (0084) 

1 PSREG 

| 

i058(0088) 

| BUFPTR 

1 


j 05C(0092) 

| OPFLG 

1 

1 

1 

1 

1 

060(0096) 

SWPFLG 

J 064 (0100) 

1 

. . 1 

ARINTRP 



1 

1 

1 

1 





1 

1 

jO80 (0128) 

! _ 

PSW1 sv 

1^088(0136) 

1 

_1_ 

PSW2SV 

1 

1 

1 

_i 

[090 (0144) j 

1 

_ _i 

|0A0 (0160) 
BASPROC 

— 

j 0A4 (0164) 

| BASUSER 
- 1_ 

j 0A8(0168) 
j BUFLTH 

_i - 


j OAC(0172) 

| UTTLQC 

-i - 

1 

1 

1 

-1 


000(0176) 


SAVREG 


110 (0272) 

DATE 

114(0276) 

PDMPBGN 

118(0280) 

PDMPEND 

-1 

11C(0284) j 

FILEPTR | 

120 (0288)|122(0 290) ■ 

124 (0292) 

128(0296) 

12C(0300)|12E(0320) | 

NOERMSG (FILE (FILE 
|NBR |2K 

-i t 

SAVER0 

STATTAB 

SVCINST |MAXJ| FTRK j 
j SIZE j 2K j 

“ * • l 

130(0304) 

ASVCCTL 

-1 

134 (0308) 

SAVER15 

i- - . -■ 

138(0312) 

i 



OSCCW | 

(EXECUTOR WORKSPACE) { 

■_i 
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PRG — communications Region (Compilation and Run-time) (continued) 


1200 (0512) 
I OP- I 
XI 


( 210 (0 528) 

I DBUGNTRY 


|,204 (0516) 
MAXFILES 


|208(0520) 
j CP PL AD DR 


j 214 (0532) 

DEBUG Secondary Entry Points 


| 20C (0524.) 

I DEBUGTAB 


|22C(0556) 
IDBUG|DBUGRSRV 


I 

| 234 (0564) 


j 23C(0572) 

| DBUGRSRV 

1 

SAVEBASE 

j SAVESTOR 


j;240 (0576) 



. 350 ( 0848 ) 

■ 


:450 (1104) 


550 (1366) 


| 750 ( 1872 ) 
| SLFORM 


| 7A0 (1952) 

I 

I 


|7B0 (1968) 


|7C0 (1984) 


.7 DO (200 0) 
ERR- | 
SAVEDj 


RECOGNI5? 


248(0584) 

_t 

ATTNREG 

(EXECUTOR WORKSPACE) 


RUNPARM or BUFFAHED 


PLINE 


TMBUF 

(TERMINAL BUFFER) 


jSL- 
j B5TTE 



IFTMP 


RNDTMP 


MATMP2 


7A8 (1960) 


7B8(1976) 


7C8 (1.992) 
ERRSTAET 


1- 1 

754(1876) | 

BSLFOFM 

i 

758(1880) 

LINWDTH 

75C (1884) 

PARMPTR 

764 (1892): 

PSMIN | 

768(1896) 

ASPTR 

■ . .—■ — ■ - — 

76C (.1950) 

ASLTH 

;-1 


770 (1904) 

; ASMAX 

774 (1908) 
AVLIN 


778(1912) 

IMEND 

77C(1916) 

EXTEND 

i 

— ' - -! 

.780 (1920) 

SEQCHK 

784 (1924) 
NEEDBUF 


788(1928) 

78C(1932) 

USEPARM 

1 

i 

790 (1936) 

; IBFPTR 

L _ 

794(1940) 

FPHCFLAG 

_ t _ 

| 795(1941) 

| SAVSWTCH 

1 

_L_ 

798(1944) 

790(1948) 

ERMFLAG 

FCNMRK 

_ L _ 

79E(1950) 

1 1 

|MSGCNT | 

JL _ 1 


FORTMP 


MATMPT 


|7CC(1996) 
[ ERREND 


COMPABS 

(see PRG - COMPABS (Compile Only)) 
or PRG - COMPARE (Run-time Only) 
for contents); 
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PRG — communications Region (Compilation and Run-time) (continued) 


1 .. “ ' . 

COMPABS 

..... 

- -- , ■—, - 1 

A74 (2676) 

PSSAV or BSPRG 

. _ 

- -1-—i 

A78(2680) |A7C(2684) | 

BSVARCN1 j BSVARCN2 | 

A80 (2688) 

BSOBJ 

A84 (2692) 

BSOVFLW 

. 

| | 

A88(2696) |A6C(2700) | 

BSUFUN | BSEXTPTR | 

A90 (2704) 

BSD AT 

.. . 

A94(2708) 

CURDAT 

.. 1 I 

A98(2712) |A9C(2716) j 

ENDDAT | BSKEY | 

AAO (2720) 

CURKEY 

AA4 (2724) 

BSLINCHN 

. - - ... | ..... . j 

AA8(2728) (aAC( 2732) j 

BSLNPTRS j BSVARPTR | 

- . | 

ABO (2736) 

BSLINTB 

1_ _ 

AB4 (2 74 0) 

BSPARMSV 

_ _ 

j | 

AB8(2744) |ABC(2748) j 

CSTART or OBJPTR | STPRS or LETTMP | 

_i_i 

jACC(2764) | 

STPRS or LETTMP j BSSRC | 

_ i_i 

ADO (2768) 

SRCPTR 

AD4 (2772) 

BSLINTAB 

AD8(2776) JADC(2780) j 

BSPRGA j SRCLIN j 

i j 

AEO (278 4) 

SRCCR 

AE4 (2788) 

SVRP4 

L _1 

AE8(2792) j 

SCN1RP1 j 

_i 

AFO (2796) 

SCN1RP1 or SCN1RP3 

AF4 (2800) | 

SCN2RP1 | 

_ i 

BOO (2816) 

VALRP2 

_i 

B04 (2820) 

SVOBJRG1 

B08(2824) 

SVOBJRG4 

AFC (2828) i 

DEFSAV | 

j 

|BIO (2832) 

| LI NS VP 

B18(2840) 

FMLASVP or CTLSV1 

B1C(2844) j 

FMLASVP, CTLSV1 or | 
CTLSV2 j 

i 

1 

FMLASVP 

B28(2856) 

MATRPSV 

B2C(2860) | 

SVSRCP | 

B30 (2864) 

RELWORK 

B38(2868) 

STCTSV2 

_ 

_ | 

B3C(2872) | 

ARRSVP | 

_i 

ARRSVP 

B48(2884) | 

AARJPR | 

|. i | 

B50 (2896) j B54 (2900) 

LOCBRANC j IFRTMPO 

_i-1 

B58 (2904) j B5C (2908) 

IFRTMP1 j IFRTMP2 j 

_■ - J 


Data Areas 93 










Licensed 

Name 

PRBGN 

ATTNFLAG 


VSBLIB 
VSBATTN 
VSBSYS 


VSBSID 


VSBREL# 


PSPTR 

PSLTH 
PS REG 


BDFPTO 

OPFLG 


ARINTRP 

PSW1SV 

PSW2SV 

BASPROC 

BASUSER 

BUFLTH 

UTTLOC 

SAVREG 

DATE 

PDMPBGN 

PDMPEND 

FILEPTR 

NOERMSG 

FILENBR 

FILE2K 

SAVERO 

STATTAB 

SVCINST 

MAXJSIZE 

FTRK2K 

ASVCCTL 

SAVER15 

US CCH 

OPTIONS 


Material - Property ot IBM 
Description 

ENTRY POINT FOR EXECUTION 
ATTENTION HANDLING FLAG 
Contents Meaning 
X’FE' NO ATTENTION PENDING 

X'OE' ATTENTION PENDING 

ADDRESS OF VSBASIC LIBRARY 

DISPIACEMENT FROM VSBLIB TO ATTENTION ROUTINE 
FLAG FOR SYSTEM CHARACTERISTICS 


Contents Meaning 
NO VSAM 

NO EXTENDED PRECISION 

A LIBRARY FUNCTION REQUIRES EXTENDED PRECISION 


X*01' 

X* 02* 

X' 04* 

ENVIRONMENT IDENTIFICATION 
contents Meaning 

F* 2* TSO 

F* 3* CMS 

F* 4* OS BATCH 

F* 5' DOS BATCH 

F* 6* VSPC 

VSBASIC RELEASE NUMBER 
Contents Meaning 

X'03 1 RELEASE 3 

DISPIACEMENT FROM PRBGM TO LIST OF VALUES THAT MUST BE 
UPDATED WHEN AREA IS RELOCATED 
LENGTH OF LIST POINTED TO BY PSPTR 
BIT MAP OF REGISTERS 
Contents Meaning 

0 ABSOLUTE VALUE 

1 RELOCATABLE VALUE 

DISP IACEMENT FROM TMBUF TO NEXT AVAILABLE BYTE FOR OUTPUT 
OUTPUT INHIBIT FLAG 
Contents Meaning 

0 BUFFER MAY BE WRITTEN 

1 BUFFER MAY NOT BE WRITTEN 

LOCATION TO WHICH CONTROL IS TRANSFERRED ON AN 
ARITHMETIC INTERRUPT 
NOT USED 

PSW WHEN AN ARITHMETIC INTERRUPT OCCURS 

PROCESSOR BASE ADDRESS 

USER PROGRAM BASE ADDRESS 

LENGTH OF TERMINAL I/O BUFFER 

USER TERMINAL TABLE BASE ADDRESS 

REGISTERS WHEN PROGRAM IS SAVED 

NOT USED 

NOT USED 

NOT USED 

DISPLACEMENT TO TABLE CONTAINING POINTERS TO FILE 
CONTROL BLOCKS 

NUMBER OF ERROR MESSAGES ISSUED 

LOGICAL FILE NUMBER TO BE READ OR WRITTEN 

NOT USED 

NOT USED 

NOT USED 

LINKAGE INSTRUCTION TO REQUEST EXECUTOR SERVICES 
NOT USED 
NOT USED 

ADDRESS OF SERVICE CALL ENTRY POINT 
SAVE AREA FOR REGISTER 15 DURING LINKAGE 
EXECUTOR WORK SPACE (SPACE RESERVED FOR USER TERMINAL 
TABLE) 

BIT SWITCHES FOR OPTIONS 
Meaning 

TEST OPTION SET 

MESSAGES SHOULD INCLUDE MESSAGE IP 
DO NOT CONTINUE AFTER ATTENTION 
INVERTED PRINT EDIT 


Contents 
X' 01' 

X* 02' 

X' 04* 

V 08' 
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Name 

MAXFILES 

CPPLADDP 

DEBUGTAB 

DBUGNTRY 

DBUGFLGS 

DBUGRSRV 

SAVEBASE 

SAVESTOR 

RECOGNIZ 

ATTNREG 

RUNPARM 

BUFFAHED 

PLINE 

SLFORM 


BSLFORM 

LINWIDTH 

PAPMPTP 

PSMAX 

PS MIN 

ASPTR 

ASLTH 

AS MAX 

AVLIN 

IMEND 

EXTEND 

SEQCHK 

NEEDBQF 

USEPARM 

IBFPTR 

SAVSWTCH 

FPHCTLAG 

ERMFLAG 

FCNMPK 

MS GC NT 

IFTMP 

FORTMP 

RNDTMP 

MATMP1 

MATMP2 

PSSAV 

BSPRG 

BSVARCN1 

BSVARCN2 

BSOBJ 

BSOVFLW 

BSOFUN 

BSEXTPTR 

BSDAT 

CURDAT 

ENDDAT 

BSKEY 

CURKEY 

BSLINCHN 

BSLNPTRS 

BSVARPTR 

BSLINTB 

BSPARMSV 

OBJPTO 

STPRS 


Description 

NUMBER OF ACTIVE FILES ALLOWED 
ADDRESS OF CPPL 

ADDRESS OF AREA IN WHICH TABLES FOR DEBUG ARE BUILT 
MAIN ENTRY POINT TO DEBUG 
FLAGS TO CONTROL DEBUG ACTIVITY 
RESERVED 

SAVE AREA FOR EXECUTORY BASE ADDRESSES (REGISTERS 
11 and 12) 

SAVE AREA FOR WORKSPACE BASE ADDRESS (REGISTER 13) 
RECOGNITION FIELD 
ATTENTION REGISTERS 
CHAINING PARAMETER AREA 
AREA FOR BUFFERED AHEAD TERMINAL INPUT 
INTERNAL PRINT BUFFER 
INDICATES SHORT OR LONG PRECISION 
Contents Meaning 
0 SHORT 

1 LONG 

USER SPECIFIED LINE WIDTH 

DISPLACEMENT OF NEXT ENTRY IN EXCEPTION TABLE 
MAXIMUM SIZE OF THE RELOCATABLE PROGRAM SAVE AREA 

POINTER TO ABSOLUTE SAVE AREA 

SIZE OF THE ABSOLUTE SAVE AREA 

MAXIMUM SIZE OF THE ABSOLUTE SAVE AREA 

DISPIACEMENT TO NEXT LINPTRS OR LINCHN ENTRY {•4•) 

LENGTH OF IMPTRS TABLE 

LENGTH OF EXIT TABLE 

SOURCE SEQUENCE CHECK FIELD (•-!■) 

COUNTER FOR NUMBER OF BUFFERS FOR FILES (•<)•) 

HO ID AREA FOR USE VARIABLE (PDDD) 

SAVE AREA FOR RETSW 

FLOATING POINT HARD CHANGE FLAG (X^O 1 ) 

DUPLICATE ERROR MESSAGE FLAG 
LEVEL OF SUBROUTINE NEST 
MESSAGE EMITTED FLAG 


BASE ADDRESS OF PROGRAM AREA (PROGA) 

BASE ADDRESS OF VARCON1 

BASE ADDRESS OF VARCON2 

BASE ADDRESS OF THE OBJECT AREA 

BASE ADDRESS OF THE OBJECT AREA OVERFLOW 

BASE ADDRESS OF THE UFUN TABLE 

BASE ADDRESS OF THE EXTPTRS TABLE 

BASE ADDRESS OF THE DATA TABLE 

CURRENT LOCATION IN DATA TABLE 

END OF THE DATA TABLE 

BASE ADDRESS OF THE KEY TABLE 

CURRENT LOCATION IN KEY TABLE 

BASE ADDRESS OF THE LINCHN TABLE 

BASE ADDRESS OF THE LNPTRS TABLE 


NEXT AVAILABLE BYTE IN THE OBJECT AREA 
STATEMENT PROCESSOR WORK AREA 


Data Areas 95 



Licensed Material - Property of IBM 


Name 

BSSRC 

SRCPTR 

BSLINTAB 

BSPRGA 

SR CL IN 

SRCCR 

SVRP4 

SCN1RP1 

SCN2RP1 

VALRP2 

SVOBJRG1 

SV0BJRG4 

DEFSAV 

LINSVP 

FMLASVP 

MATRPSV 

SVSRCP 

RELWORK 

STSTSV2 

ARRSVP 

AADJPR 

LOCBRANC 

IFRTMPO 

IFRTMP1 

IPRTMP2 


Description 

BASE ADDRESS OF THE SOURCE PROGRAM 
CURRBCT LOCATION IN THE SOURCE PROGRAM 
BASE ADDRESS OF THE LINTAB TABLE 
BASE ADDRESS OF THE PRGA AREA 
LOCATION OF LINE NUMBER FOR LTHS LINE 
RESERVED 
RESERVED 

SAVE AREA FOR ICDJSCN1 REGISTERS (RP1-RP3) 
SAVE AREA FOR ICDJSCN2 REGISTERS (RP1-RP3) 
SAVE AREA FOR ICDJVAL REGISTER (RP2) 


SAVE AREA FOR ICDJFMLA RELOCATABLE REGISTERS 


RELOCATABLE WORK AREA 
SAVE AREA FOR ICDJCTL 
SAVEAREA FOR ICDJALOC 
SAVE AREA FOR ICDJAADJ 

LOCATION OF BRANCH AROUND INSTRUCTION IN DF.F 
IF PROCESSOR POINTERS 
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PRG - COMPABS (Compile Only) 



- ■ , .-. 

7D4 (2004) 

DEFFORCT 

...... 

7D8 (2008) 

CNOLINE 

i-1 

7DC (2012) | 

ARRBYT | 

7E0 (2016) 

FSTDAT 

7E4 (2020) 

FSTIM 

7E8 (2024) 

FSTFRM 

7EC (2028) | 

FSTEXT | 

7F0 (2032) 

AVIM 

7F4(20 36) 

AVEXT 

7FS (2040) 

WCDR 

7FC (20 44) j 

wbg' j 

—| 

800 (2048) 

WLTH 

804 (2052) 

ERROCCUP 

808 (2056) ]s0A 

DEFNAME | SYMTYPE 

. _ A- _ 

80C (2060) ] | 

CNOERMSG j j 

_ i 1 

810 (2064) 

WLTHSAV 

■ -- - -- - - 

814 (2068) 

DATAKEYS 

818 (2072) 

STATE-1 

SW j 

81C (2076) | 

AVFOR j 

820 (2080) 
VARCBASE 

824 (2084) 

ASLADD 

828 (2088) 

ASLMASK 

. .. . 

82C (2092) j 

SSLFORM j 

830 (2096) 
CURBSREG 

834(2100) 

AWAR 

838 (2104) 

ENDVAR 

83C (2108) j 

ENDLIN | 

840 (2112) 

NOLINE 

844(2116) 

SSW |SAW |SDE |SMD 
SSU |SAU |SDD jSME 

848(2120) 

SSD |SAD |$CDjSLD 
SSE j$BE |SCE|SLE 

84C (2124) j 

SSTD |SSWI|SAWR|$DDR | 
SSTE jSSWRjsAURjSDER | 

850 (2128) 

$MDR |$SDR|SADR|$CDR 
SMER j SSERJ$AER|$CER 

854(2132) 

SLDR|SHDR |SLCDR|SLTDR 
SLER| $HER f'SLCEP jSLTER 

858(2136) 

SLNDR|SLPDR| 

$LNER|SLPER| 

85C (2 140) | 

VAL4RA1 j 

860 (2144) 

CURCTL 

_ i 

864(2148) 

CURDEF 

_ i 

868(2152) 

CURLINE 

_ 1 

86C (2156) j 

PARMCNT j 

j 870(2160) | 

j MAT DABS j 

_____._______ i 

| 

87C (2172) j 

MATDRC1 j 

880 (2176) j 884(2180) 

MATDRC3 j RDIMRC1 

A- .. .. 

888(2184) j 

RDIMRC3 | 

| ....... | 

88C (2188) | 

| RDABS | 

i _i 

RDABS 

S _______ _ i 

898 (2200) | 

ABSWORK | 

_i 

ABSWORK ( 8A4 (2212) j 

| ARRSVA | 

... ... ... _ i -j 

ARRSVA j 8B8(2232) j 

j ARRSVC j 

__i_i 

— 

ARRSVC 

8C4 (2244) S 

AADJAR | 

-. . - ----- —----- ... - - j 

AADJAR 

_ 

8D4 (2260) | 

PARMTBL j 

_i 

I- 

I 

i 

_ 1 

938 (2360) 

LINSAV 
|LIN- |LIN- 
JSAV1 |SAV2 

A. A . ... . ..... 

93C (2364) 
UFUNPTR 

93E(2366) j 

1 

RET-|VAL- j 
SW |SW j 

L 1 _ 1 

1940 (2368) 
GEN- |QT- 
/LAG jCHAR 

942(2370) 
RE- (MODE 
DIM j 

944(2372) 946(2374) 

SRE-|TYP- FXDPT-j 

QST (CODE OVF j 

_■_i 

948 (2376) 

IMFRMCNT 

_i 

94C (2380) 
HDRCDDBG 



952 (2386) 
HDRCDSTD 
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Name 

DEFFORCT 

CNOLINE 

ARRBYT 

FSTDAT 

FSTIM 

FSTFRM 

FSTEXT 

AVIM 

AVEXT 

WCUR 

WBG 

WLTH 

ERROCCOR 

DEFNAME 

SYWTYPE 

CNOERMSG 

WLTHSAV 

DATAKEYS 

STATESW 


AVFOR 
VARCBASE 
ASLADD 
ASLMASK 
SSLFORM 
CURBSREG 
AWAR 
ENDVAR 
ENDLIN 
NOLINE 
$SU/$SW 
SAU/SAW 
SDE/SDD 
SME/SHD 
SSE/$SD 
SAE/SAD 
$CE/$CD 
JLE/SLD 
SSTE 
$STD 
SSUR/ 
$SWR 
$AUR/ 
SAWR 
SDER/ 
SDDR 
SHER/ 
$MDR 
SSER/ 

$sm 

$AER/ 

SADR 

SCER/ 

SC DR 
SLER/ 
SLDR 


Material - Property of IBM 
Description 

COUNTER OF •FOR' LOOPS IN USER FUNCTION 
CURRENT NUMBER OF SOURCE STATEMENTS PROCESSED 
NEXT AVAILABLE BYTE IN CURRENT ARRAY BLOCK 
POINTER TO FIRST DATA STATEMENT ENTRY 
POINTER TO FIRST IMAGE STATEMENT ENTRY 
POINTER TO FIRST FORM STATEMENT ENTRY 
POINTER TO FIRST EXIT STATEMENT ENTRY 
DISPIACEMENT TO NEXT AVAILABLE IMPTRS ENTRY 
DISPIACEMENT TO NEXT AVAILABLE EXTPTRS ENTRY 


FUNCTION NAME (WITHOUT FN) 
TYPE OF INSTRUCTION 


NUMBER OF KEY TABLE ENTRIES 
STATEMENT PROCESSOR SWITCH 


Contents 
X* 80' 

X‘ 40 • 

X' 20* 

X' 10' 

X* 08* 

X* 04* 

X* 02* 

X' 01* 

DISPLACEMENT 

BASE ADDRESS 


Meaning 

PROCESSING AN IF STATEMENT 
PROCESSING A MULTI-LINE FUNCTION 
SRC WINDOW REQUESTED IN ERROR MESSAGE 
TEST OPTION REQUESTED 
RETURN IN A DEF STATEMENT 
ARITHMETIC FUNCTION 
PROCESSING A MAT STATEMENT 
STATEMENT NUMBER IS A STATEMENT LABEL 
OF NEXT AVAILABLE END FOR ENTRY 
OF VARCON AREA 


CURRENT BASE REGISTER FOR THE VARCON AREA 
DISPLACEMENT TO NEXT AVAILABLE VARCON ENTRY 
LENGTH OF THE VARCON AREA 
LENGTH OF THE LINPTRS OR LINCHN TABLES 
NUMBER OF SOURCE LINES IN PROGRAM 


X* 7F • 

OR 

X'6F* 

X* 7E* 

OR 

X'6E' 

X* 7D * 

OR 

X*6D* 

X*7C* 

OR 

X* 6C* 

X* 7B' 

OR 

X '6B* 

X* 7A* 

OR 

X'6A* 

X* 79' 

OR 

X*69' 

X'78 * 

OR 

X'68' 

X* 70' 

OR 

X*60* 

X* 3F* 

OR 

X*2F' 

X* 3E • 

OR 

X'2E' 

X* 3D * 

OR 

X*2D* 

X* 3C • 

OR 

X'2C* 

X* 3B* 

OR 

X'2B* 

X* 3A* 

OR 

X* 2A* 

X*39 * 

OR 

X'29* 

X'38» 

OR 

X*28* 





Licensed Material - property of IBM 


Name 
$HER/ 
$HDR 
SLCER/ 
SLCDR 
SLTER/ 
SLTDR 
SLNER/ 
SLNDR 
SLPER/ 
XLPDR 
VAL4RA1 
CURCTL 
CURDEF 
CURLINE 
PARMCNT 
MATDABS 
MATDRC1 
MATDRC3 
RDIMRC1 
RDIMRC3 
RDABS 
ABSWORK 
ARRSVA 
APRSVC 
AADJAR 
UFUNPTR 
RETSW 


VALSW 


GENELAG 


QTCHAR 

REDIM 


MODE 

SREQST 

TYPCODE 

FXDPTOVF 


IMFRMCNT 

HDRCDDBG 

HDRCDSTD 


Description 

X* 34 * OR X'24* 

X'33• OR X'23* 

X 1 32' OR X'22' 

X'31' OR X'21' 

X* 30' OR X'20* 

SAVE AREA FOR ICDJVAL4 
DISPLACEMENT OF CURRENT 
DISPLACEMENT OF CURRENT 


CONTROL ROUTINE 
DEFERRED STATEMENT ENTRY 


PARAMETER COUNTER 

SAVE AREA FOR ICDJMATD ABSOLUTE REGISTER 1 

SAVE AREA FOR ICDJMATD REGISTER 

SAVE AREA FOR ICDJMATD REGISTER 

SAVE AREA FOR ICDJBDIM REGISTER 

SAVE AREA FOR ICDJPDIM REGISTER 

SAVE AREA FOR ICDJPDIM REGISTERS 

WORKSPACE TO CHANGE B REGISTERS TO A REGISTERS 

SAVE AREA TOR ICDJALOC ABSOLUTE REGISTER 

SAVE AREA FOR ICDJALOC 

SAVE AREA FOR ICDJAAPJ ABSOLUTE REGISTERS 
DISPLACEMENT OF DEF ENTRY IN UFUN TABLE 
RETURN STATEMENT SWITCH 


Contents 
X* 00' 

X* 01 • 

X* 02' 

X* 04» 

X' 20' 

X' 08* 


Meaning 

RETURN TO ICDJFMLA 

RETURN TO DIM STATEMENT PROCESSING 
RETURN TO DEF STATEMENT PROCESSING 
RETURN TO LET, NEXT, FOR, USE, OR FORM 
STATEMENT PROCESSING 

RETURN TO INPUT OR READ STATEMENT PROCESSING 
RETURN TO GET STATEMENT PROCESSING 


X'10' RETURN TO OPEN/CLOSE/RESET 

X' 28' REDIMENSIONING CORRECT; 'CALL ID' NEEDED 

X'38' REDIMENSIONING CORRECT 

X' FF' REDIMENSIONING NOT PERMITTED 

ENTRY INDICATOR USED IN ICDJVAL 


Contents 
X' 00' 

X' 01 • 

X' 03' 

X' 07' 

X' 80 ' 


Meaning 

ENTRY AT ICDJVAL1 
ENTRY AT ICDJVAL2 
ENTRY AT ICDJVAL3 
ENTRY AT ICDJVAL4 
ENTRY AT ICDJVAL5 


GENERAL FLAG BYTE 
Contents Meaning 
X»01' SPACE USED FOR VARCON2 

X' 02' SPACE USED FOR OBJECT CODE 

X'40' UNRECOVERABLE ERROR FLAG 


REDIMENSION SWITCH 
Contents Meaning 
X'01' REDIMENSION OCCURRED 

X'00' REDIMENSIONING DID NOT OCCUR 

•IF' PROCESSING MODE 


FIXED POINT OVERFLOW 
Contents Meaning 
X'FF' ON 

X* 00• OFF 


STATEMENT HEADER CODE FOR DEBUG 
NORMAL STATEMENT HEADER CODE 
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17E0 (2016) 


|7F0 (2032) 


MIDCLK 


MASKM2 


[ 7D8(2008) 


|7E8(2024) 


j 7F8(2040) 
I MASK1 


JDYTOD 


MASK 3 


|7Fe('2044) 
j MASKM1 


|800 (2048) 

-1-- 

804 (2052) 

808(2056) 

-— I ---— 

j80C(2060) 

j PADCHAR 

RNDSEED | 

MAXDGTS 

| IOCNT 

j 310 (2064) 

814(2068) | 

818(2072) 

j 

j 81C(2076) 

| NBLIN 

i _ 

MAXNBLIN | 

1 

LZINST 

j LOINST 


j LARLIN 


860(2144) 

BLKPAD 


880(2176) 

ONTARGET 


I 890(2192) 

| ONOFLOW 



838(2108) 


846 (2122) 847 ! (2123) | 848(2124) 
PRINTFNO INPUTFNOj 


IFMT . 


FPTMP 


18 50 (2128) 

854 (2132) 

j RDIM1 

RDIM2 


| 83F 
IEFMT 


858(2136) 

- 1-! 

j 85C(2140) | 

KROUTRET 

l 

j GOTOTMP j 

i _j 



864 (2148) 
gTRLNG 


874(2164) 
BUFFRRA0 


884 (2180) 
ONATTN 


894(2196) 

ONUFLOW 


868(2152) 

86C (2156) 

186E | 

CALLNGTH 

TOUTISIGN 

j CNVT|FMT j 


sw 1 

(RET |FLG | 


878 (2168) 
BUFFRRA4 


888(2184) 
ONERR 


898(2200) 

ONZDIV 


87C(2172) 
BUFFSTRT 


88C(2188) 

ONINERR 


j 8F5(2293) 
-» CNVTOUT 





A30(2608) 
LEV3ABS 


938(2360) 

LEVM1ABS 


958(2386) 

LEVOABS 


9A8 

LEVIABS 


A18(2584) 
LEV2ABS 
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j A40(2624) 

ERSVRET 

-1- 

1 

1 

_i_ 

A44(2628) 

ERSVERRL 

_i 

-r 

A48 (2632) | 

ERSVRET2 | 

A4C (2636) 
ERABS 


1 

1 

ERABS | 

j 1 

A58(2648) 

RDECNOI 



j A60(2656) 

| RDECN02 

A68(2664) j 

VPLAY j 

L ...... ... 1 

A6C (2 668) 
VEXLSTA 

| 

| A7 0(2672) 

| VFLAREA 

T 

1 

1 






i_ j 


Name 

JDYTOD 

MIDCLK 

MASK3 

MASK M2 

MASK 1 

MASKM1 

PADCHAR 

RNDSEED 

MAXDGTS 


I3CNT 

NBLIN 

MAXNBLIN 

L2INST 

LOINST 

'jARLIN 

uARRFR 

FORLER 

H4 

H8 

EXSW 
10 SW 

LINERRSW 

MATHLEV 

FFMT 

IFMT 

EFMT 

I PRINTFNO 
I INPUTFNO 
FPTMP 
RDIM1 
RDIM2 
KROUTRET 
GOTOTMP 
BLKPAD 
STRLNG 
CALLNGTH 
TOUTSW 


SIGN 


Description 
TODAY 1 S JULIAN DATE 
PREVIOUS MIDNIGHT CLOCK 
X 1 4E00000000000000* 

X* 4EOOOOOOOOOOOOC1* 

X* 46 0000 00 * 

X* 46 000001 • 

X* 40 000000* 

HOLD AREA FOR A PSEUDO-RANDOM SEED 
MAXIMUM NUMBER OF DIGITS 
Contents Meaning 
6 SHORT PRECISION 

15 LONG PRECISION 

NUMBER OF ARGUMENTS PUT OUT DURING I/O OPERATION 
NUMBER OF CHARACTERS IN PRINT LINE 
HIGHEST POSITION USED IN PRINT LINE 
LOAD SINGLE INTO FLOAT REGISTER 2 
LOAD SINGLE INTO FLOAT REGISTER 0 
LOAD ADDRESS INTO RELOCATABLE REGISTER RLIN 
LOAD ADDRESS INTO RELOCATABLE REGISTER RRFR 


H* 4* 
H* 8* 


INDICATOR FOR EXECUTION STATUS 
Contents Meaning 

X*01* I/O STATEMENT BEING PROCESSED 

X* 02 * ERROR MESSAGE TO SUPPRESS LINE NUMBER 

X* 04* LEVEL INDICATOR FOR MATH ROUTINES 

SINGLE PRECISION F-FORMAT 
SINGLE PRECISION I-FORMAT 
SINGLE PRECISION E-FORMAT 
PRINT TO FILE NUMBER 
INPUT FROM FILE NUMBER 
ARITHMETIC INTERRUPT FP REGISTER TEST 
REDIMENSIONING TEMPORARY FOR DIMENSION 1 
REDIMENSIONING TEMPORARY FOR DIMENSION 2 
RUN-TIME RETURN ADDRESS FOLLOWING EVALUATION OF ARG. 
WORK AREA FOR COMPUTED GOTO OR GOSUB 
BLANK PADDING INFORMATION 
STR LENGTH, INFORMATION FOR ICDKPLIN 
CHAR STRING LEN3TH 
OUTPUT INDICATOR 


Contents 
X 1 01* 

X* 04* 

X* 08 * 

CNVT VALUE 


Meaning 

OUTPUT PRINT LINE AND CR TO TMBUF 
OUTPUT PRINT LINE, CR, AND ? TO TMBUF 
OUTPUT PRINT LINE, CR, AND ?? TO TMBUF 
INDICATOR 


Contents Meaning 

X*00* NUMBER IS POSITIVE OR ZERO 

X*01* NUMBER IS NEGATIVE 
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Name 

CNVTRET 


FMTFLG 


CALLEB 


BUFFWRK 

BUFFDLIM 

BUFFLNTH 

BUFFRRAO 

3UFFRRA4 

BUFFSTRT 

ONTARGET 

ONATTN 

ONERR 

ONINERR 

ONOFLOW 

ONUFLOW 

ONZDXV 

CNVTOUT 

LEVM1ABS 

LEVOABS 

LEVIABS 

LEV2ABS 

LEV3ABS 

ERSVRET 

ESVERRL 

ERSVRET2 

ERABS 

RDECNOI 

RDECN02 

VP LAY 

VEXLSTA 

VFLAREA 


Material - Property of IBM 

Description 
RETURN INDICATOR 
Contents Meaning 
X* 01 • PRINT OUTPUT 

X'02' STREAM FILE OUTPUT 

X' Oft * VSAM OUTPUT 

X’ 08' CALL FROM DEBUG 

X'10' CALL FROM CHR FUNCTION 

FORMAT TYPE INDICATOR 


Contents 
X* 00* 
X'01* 

X* 02' 

INPUT FLAG 
Contents 


Meaning 

UNFORMATTED PRINT 
FORM-TYPE FORMAT 
IMAGE-TYPE FORMAT 


Meaning 

SKIP OVER EMBEDDED BLANKS 
EMBEDDED BLANKS TERMINATE SCAN 
END ADDRESS SUPPLIED 
CALLER IS THE GET ROUTINE 
CALLER IS THE INPUT ROUTINE 
CALLER IS THE DEBUG ROUTINE 


X* 00* 

X' 01 • 

X* 02* 

X* 0ft* 

X' 10' 

X' 20' 

X* ftO' 

BUFFERED AHEAD WORK AREAS 

SINGLE/DOUBLE QUOTE FLAG 

LENGTH OF INPUT LINE 

RRA0 SAVE AREA 

RRAft SAVE AREA 

OFFSET TO NEXT INPUT LINE 

ON CONDITION TO BE USED 

CELL FOR ON ATTN 

CELL FOR ON ERR 

CELL FOR ON INERR 

CELL FOR ON OFLOW 

CELL FOR ON UFLOW 

CELL FOR ON ZDIV 

OUTPUT BUFFER FOR CONVERSION ROUTINE 

WORK AREA FOR LEVEL -1 ROUTINES 

WORK AREA FOR LEVEL 0 ROUTINES 

WORK AREA FOR LEVEL 1 ROUTINES 

WORK AREA FOR LEVEL 2 ROUTINES 

WORK AREA FOR LEVEL 3 ROUTINES 

RETURN REGISTER SAVE AREA FOR ERROR PROCESSING 

SAVE AREA FOR ERROR LINE 


REGISTER WORK AREA FOR ERROR PROCESSING 

CONVERSION WORK AREA 

CONVERSION WORK AREA 

VSAM 

VSAM 

VSAM 
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Z#UTT - USER TERMINAL TABLE 
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The User Terminal Table contains system/type information about the current VS BASIC user. 
ZtUTT (User Terminal Table - VSPC, TSO, and CMS only) 


000 ( 000 ) 


j 0F4 (2 3 6) j 

|L# {L#0 |L#N |L*N j 

jLANG)LANG j2KB j2048{ 


14A(330) | 
L* | 

WIDTH | 



B (443) 


Z#UTT 

Name Description 

LflANG Language processor number 

LfOLANG Old language processor number 

L#N2KB New core size as requested by compiler 

LtN2048 Number of 2K blocks of core assigned 

LtWIDTH Line width of terminal in characters 

LfNLINE Number of lines of sorted source 
LiSOURC Length of sorted source in bytes 

LfSADDR Displacement from base of user area to source code 
LiRTIME Current problem running time in microseconds 
L#FLG3 General flag byte 3 meaning by bits 

Contents Meaning 
X*02* Long-form arithmetic 
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OFUN - USER FUNCTION TABLE 


Hie User Function Table contains information required to process user functions in a VS 
BASIC program. There is one entry in the table for each user function that is defined i 
the program. 


UFUN (Format of User Function Table Element) 

i’0(0) | «(4) 16 (6) '8(8) ~~ 

j UFUNDISP {UFUNARG jUFUNWORK Next Entry 

'«- 1 _ i _ i . 


I--1 

)UFUNWDSP 

I—— I 


UFUN Table Entries 


Name 

UFUNDISP 

UFUNARG 

UFUNWORK 

UFUNWDSP 


Description 

Displacement to function expansion 
Number of arguments 
Length of WRKTMP (Compile time) 
Displacement to WRKTMP (Run time) 


ARYDSC - ARRAY DESCRIPTION TABLE 


The Array Description Table contains information about the arrays that are used in a VS 
BASIC program. Each array is described in one 12-byte element. A particular element can 
be found by using the appropriate displacement in the array pointers table (ARRPTRS). 


ARYDSC (Format of Array Table Element) 


i-- ■ - - t — . r . ..f ■. - - - -r 


100 (00) j 

04(04) 


08(08) 

10 (0A) | 

12(00 

1 

ARYDSCD1 

ARYDSCD2 

ARY |ARD 
DSCLjSCND 

ARYDSCMX | 

J 

Next 

Element 


i -- « « « » ■ « 


ARYDSC Table Entries 


Name 

ARYDSC OS 

ARYDSCD1 

ARYDSCD2 

ARYDSCL 

ARYDSCND 

ARYDSCMX 


Description 

Offset from the beginning of the array area 

Current maximum value of the first subscript 

Current maximum value of the second subscript 

Length in bytes of each element 

Number of dimensions 

Maximum number of elements in array 
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ARRPTRS - ARRAY POINTERS TABLE 


Licensed Material - Property of IBM 


The Array Pointers Table is pre-allocated and contains 58 half-words. Each half-word is 
assigned to one possible array name and contains the displacement to the corresponding 
description of the array in the Array Description Table. 


ARRPTRS (Array Pointers Table) 


i oo (00) 

1 a 

— r 

| 02 (0 2) 

1 B 

“1 

| 0 4 (04) 

1 c 

—i- 

| 06 (06) 

1 D 

—t 

| 08 (08) 

1 E 

i 

—i— 

1 0A(10) 

1 F 

|0C (12) 

1 G 

1 

—1- 

|0E (14) 

1 H 

■ 

-T 

_J 

110(16) 

1 I 

1 12 (18) 

1 J 

(14(20) 

1 K 

1 

-j- 

i 16 (22) 

1 L 

i18 (24) 

1 M 

| 

i 1A (26) 

1 N 

1 

| 1C (28) 

1 o 

1 

1 IE(30) 

1 P 
• 

- 1 

J 

i 20 (32) 

1 Q 

j 22 (3 4) 

1 R 

(24(36) 

1 3 

_ i 

| 

*| 26 (38) 

1 T 
| - 

| 28 (4 0) 

1 o 

4- 

| 

jzA (42) 

1 v 
| 

—1- 

| 2C (44) 

! w 

-1- 

|2E (46) 

1 x 

-1 

J 

[30 (48) 

1 Y 

i 32 (50) 

1 z 

(34 (52) 

1 a 

1 

136 (54) 

1 # 

i38 (56) 

1 $ 
j- 

| 3A (58) 

| A$ 

| 3C (60) 

| B$ 

-j- _ 

| 3E (62) 

| C$ 

_i 

1 

|40 (64) 

| D$ 

| 42 (6 6) 

| E$ 

i44 (68) 

| F$ 

| 46 (70) 

1 GS 

i 48 (7 2) 

1 HS 

. | . 

| 4A (74) 

| 1$ 

j ... ._ - 

I 4C (7 6) 

I JS 

1 

|4E (78) 

| K$ 

_i_ _ 


I50(80) 

1 L $ 

i 52 (8 2) 

I M$ 

j - - 

|54(84) 

I NS 

1 

I 56 (86) 

1 OS 

I 

j 58 (88) 

| PS 

1 _ _ 

| 

j 5A (90) 

1 Q* 

_ | 

('5C (92) 

1 FS 

— T 

| 5E (94) 

I S$ 

■ 

-1 

j 

i60(96) 

I T$ 

i 62 (9 8) 

I 0$ 

(64(100) 

l vs 

_ J _ 

166 (102) 

t W$ 

1 

j 68 (104) 

1 X$ 

. ±- 

j 

j 6A(106) 

| Y$ 

1 

| 

j 6C (108) 

| Z$ 

1 

-1- 

( 6E (11 0) 

I m 

_ _ _i_ _ 

-1 

_j 

(70(112) 
t #$ 

i— 

( 72 (1 14) 

1 $$ 

—i_ 

|' 7 4 (116) 

1 

_i 
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ARGENTRY - ARGUMENT TABLE 


The Argument Table describes in a pre-set format any arguments that may be required in a 
vs BASIC program. The arguments are generated in-line for each statement that required 
them, when the arguments are passed to a routine in the vs BASIC Processor, register 14 
points to ARGENTRY. 


ARGENTRY (Format of Argument Table Element) 

«-1 .. 1 - - r .- - t 


|0(0) 
j APG 

ARGPRCD 

2(2) 

ARGADOR 

I* w 

f Next 

Last 

*FF' 

(CODE 

1 

« 

ARGCLTH 
| ARGRSCD 
| ARGOPNCD 


(Element 

1 

1 

Element 



i-1-1_i_ _i_i 


ARGUMENT Table Entries 


Name 
AR GOODE 


ARGPRCD 

ARGCLTH 

ARGRSCD 

ARGOPNCD 

ARGADOR 


Description 
Identifier type 


Contents 

Meanino 

X»00' 

Print null argument 

X* 01' 

Expression 

X' 02* 

Array 

X* 03» 

Function 

X* 04* 

Array element 

X* 08* 

Character type 

X' 18* 

String pseudo-variable 

X* 20 • 

Constant 

X' 30' 

Condition keyword 

X* 80' 

Exit keyword 

X' 40* 

Object code return indicator 

X'FF* 

Print codes 

End of argument list 


Length for character strings 

Reset end codes 

Open parameter codes 

BDDD address of identifier location 
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LINTAB - LINE TABLE 


Licensed Material - Property of IBM 


The Line Table contains offsets for each element in the Line Pointers Table and the Line 
Chain Table. The offsets in each table are the same for corresponding elements. These 
offsets are used by the run-time error processor to determine the xocation of the object 
code for each statement in a VS BASIC program. In addition, it contains displacements 
used by the compiler to locate deferred statements. 


LINTAB (Format of Line Table Element) 


1-1-1-r 


|0(0) 

I 2 (2) 

14(4) 

I 6 (6) 

|8{8) 

| LINCHN1 

j LINCHN2 

(LINSRCE 

j LINFNO 

| Next 

1 

1 

1 

1 

j Element 


_i_ 

_ , . 

_■ 

_i_ 


LINTAB Table Entries 
Name Description 

LINCHN1 Displacement into LINPTRS/LINCHN tables for next entry in hash chain 

LINCHN2 Displacement into LINTAB for next entry in chain of deferred statements 

LINSRCE Displacement from beginning of source to first character after line number 
LINFNO Sequence number of user function in which statement appears 


LINPTRS - LINE POINTERS TABLE 


The Line Pointers Table contains the location, relative to the base address of the object 
code (BSOBJ), of the object code for each statement in the VS BASIC program. The high 
order portion of the line number is shown with each address. The low order portion of 
the line number is contained in the Line Chain Table (LINCHN.) 


LINPTRS (Format of Line Pointers Table Element) 


|0(0)'l(1) 

} LI LINOBJ 

j N0M1 

I_L- _ 


|4(4) 
j Next 
j Element 

i..- 


LINPTRS Table Entries 


Name 

LINUM1 

LINOBJ 


Description 

High order byte of binary line number 

Displacement from OBJAREA base address to code expansion 
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LINCHN - LINE CHAIN TABLE 


The Line Chain Table contains, at the same offset as in the Line Pointers Table, the low 
order portion of the line number for each statement listed in the Line Pointers Table. 

In addition, this table also contains the offset to the next element in the table. 


LINCHN (Format of Line Chain Table Element) 


10 ( 0 ) * 2 ( 2 ) 

|LINCHN3 LINUM2 

I I 

t .... i_ 


4(4) 

Next 

Element 


LINCHN Table Entries 


Name 
LINCHN3 

LINUM2 


Description 

Displacement into LINPTRS/LINCHN tables of entry for next line number in 
numeric sequence 

Low order bytes of the binary line number 


INFOTAB - INFORMATION TABLE 


The Information Table contains information about each intrinsic function that is referred 
to in the current VS BASIC program. This table is the only component of the compiler 
module ICDJINFO. 


INFOTAB (Format of Information Table Element) 


10 ( 0 ) 

flNFONAME 

I 


3(3) 14(4) 
INFOjINFO 
RESVjCD 


T— 1 1 . V ' — 1 


5(5)j6(6) 

7(7) 

8(8) 

INFOjINFO 

INFO 

Next 

FLG |NXT 

BIF 

Element 

i _ i _ i 

i - ..-J 

i . .... 


INFOTAB Table 

Name Description 

INFONAME Function name in EBCDIC 

INFORESV Reserved 

INFOCD Function type 

Contents Meaning 
X' 00• Numeric type 

X'08* Character type 


INFOFLG Function description flags 
Contents Meaning 

X'20' BASIC intrinsic function 

X*10* Arguments are required 

X*08' Processed by generated code 

X* 04' No arguments 

X*02* Numeric, single argument mathematical function 

X'OO' I/O condition keyword 

INFONXT sequence number of the next entry in the hash chain 
INFOBIF BIFTAB/generated code entry number 
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EXTPTRS 


EXIT POINTERS TABLE 


Licensed Material - Property of IBM 


The Exit Pointers Table contains pointers to the appropriate entry in the Condition Table 
(CNOTBL) for each EXIT statement in the prograa. The File Taole piLTAB) and the VSAM 
File Table (VFILTAB) contain index values into the Exit Pointers Table. 


EXTPTRS (Format of Exit Table Element) 


| 0 ( 0 ) 

| EXTDISP 

I 


i^r~ 

| Next 
|Element 


EXTPTR Table Entries 


Name Description 

EXTDISP Displacement from ROBJ to CNDTBL entry 


CNDTBL - CONDITION TABLE 


A Condition Table is ouilt for each EXIT statement and group of I/O conditions, which are 
treated as if they were an EXIT statement, in the current VS BASIC prograa. Each entry 
in this table is either 0 or the address of the routine that handles the required error 
type. The EXTPTRS table contains pointers to CNDTBL. 


CNDTBL (Format of Condition Table Element) 

| 00 (00) J 04(04) 

| IOERRENT | EOFENT 

i * _ _ . 

08(08) 

CONVENT 

OC (12) I 

HOKEYENT | 

|10(16) i 14 (20) 

1 1 NORECENT 

| DUPKYENT | 

i— -a- 

18(24) 

DUPRCENT 

1C(28) 

NEXT 

ELEMENT 


CNDTBL Table Entries 


Name 

IOERRENT 
EOFENT 
CONVENT 
NO KE YE NT 
DU PK YE NT 
NORECENT 
DUPRCENT 


Description 

Displacement to IOERR entry 
Displacement to EOF entry 
Displacement to CONV entry 
Displacement to NOKEY entry 
Displacement to DUPKEY entry 
Displacement to NOREC entry 
Displacement to DUPREC entry 


ESP ACE 


ESPACE defines the temporary file area EFILTEHP, which holds information about 
a file before a file table has been allocated for it. The second part of 
ESPACE is used by library and executor routines as storage for save areas, 
additional file information, and data-list processing. BSEFIL contains a 
pointer to ESPACE. 
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Name 

ENAMELN 

EFILENM 

ETYPE 

EOPNMODE 


EFILENO 

EVEXCEPT 

EFORG 

EFREE 

EXITDSP 

ERETNCOD 

EACBA 

EAREA 

EAREALN 

ERKP 

ECKEYA 

ELKEYA 

ERPLA 

EAREALNR 

EAPEALNW 

EAREALNP 

EARENDA 

ERBACUR 

EKEYLN 

EREQ 

ECLRA 

ECLRLN 

EMNL 

EMXL 

ERECORD 

EKEYED 

EOPEN 

EOPNSTAT 

EPARAMS 

EREQST 


ERMODE 


EPLINCR 


EKEYINCR 


EACTSEQ 
DTEMP 
ECORACT 
VRUNSAVE 
VDINDEX 


Licensed Material - Property of IBM 

Description 
Length of DDNAME 
DDNAME 
File type 

Mode for opening file; N/A for open request 


Value Meaning 

If not open, don f t open (REREAD, CLOSE, END) 
If not open, open for input (READ, RESET) 

If not open, open for output (WRITE) 

If not open, open for ALL (REWITE, DELETE) 


X f 00' 

X'OV 
X f 0 2* 

X'03 1 

File number 
Error code 
File organization 
Reserved 
Exit pointer 
Return code 
Reserved 
Reserved 
Reserved 
Reserved 
Reserved 
Reserved 
Reserved 
Reserved 
Reserved 
Reserved 
Reserved 
Reserved 
Reserved 

Run-time request 

Reserved 

Reserved 

Reserved 

Reserved 

Reserved 

Indicates presence/absence of key clause 
Indicates whether open is legal/illegal 
Indicates file status (open/closed) 
Parameters of current request 


Request 

code 



Value 

Request 

Value 

Request 

X'01' 

Read 

X' 07' 

Open 

X '0 2' 

Wr ite 

X' 08' 

Read 

X'O 3' 

Rewrite 

X '09» 

Close 

X '0 5' 

Delete 

X' 10* 

End 

X'O 6' 

Reset 




Indicates the mode in which the request is invalid. This flag is compared 
with the open mode; if equal, the error condition is handled. 


Value 
X'OO' 
X'01' 
X f 0 2 f 
X f 0C f 


Meaning 
Request is always valid 

Invalid for write (file is open for input) 

Invalid for read, reread (file is open for output) 

Invalid for rewrite, delete since these requests require MODE=ALL 


Length of request parameter list (excluding data) 


Value Request 

X'OH* Open, close, end 

X'OQ' Reset 

X 1 10* Read, reread, write. 


rewrite, delete 


Position of key in argument list 
Value Request 

X'OO 1 Open, close 

X 9 QH' Reset 

X l 0C # Read, reread, write, rewrite, delete 

Sequence of steps in module ICDKVIOR to handle request 
Temporary area 
Current step 

Run-time register save area 
Data count field 
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Name 

VDATA 

VDTYPE 

VDL 

VNO 

VTITER 

CONVERSW 

FILLCHAR 

VTCODE 

VTL 

VDLSUB 
VTLSUB 
NMOVE 
VFORMA 
VFSPECA 
VDEFLT 
VFIRSTFM 
VLDIFF 
VNKEYA 
VLAST 
VFPPOC 
VCURPOS 
LADDRESS 
LACODE 
ADDRESS 
STORE 
MAXADDR 
VDATASUB 
SAVRLOC 
SAVFORMA 
DATAWORD 
RETURN 
LOCWORD 
FORMINCR 
ERRCODE 
ECLSOPEN 
HI WRITE 


Descr iption 

Address of data item 

Type of data item 

Length of data item 

Number of elements in data item 

Value of FORM iteration 

Indicates whether data conversion is required; used as save area for EOPNMOD* 
during file scan 

Padding character (0, if numeric data; blank, if character data) 

FORM code 

Length of FORM data 
Data length 
FORM length 

Number of items to move 
Address of current FORM 
Address of FORM start 
True if no FORM present 
Reserved 
Reserved 

Address of null key 
On if all data sent 
Reserved 

Current buffer position 

Variable load address instruction 

Instruction code 

Instruction address 

Variable STE instruction 

Highest buffer position reached 

Data address hold area 

Relocation save area 

FORM address save area 

Data save area 

Return address save area 

Location save area 

FORM item length 

Error code 

Indicates whether file*s initial load status is to be altered 
True if current key is high 
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FILETAB - FILE TABLE (STREAM I/O) AND 


Licensed Material - Property of IBM 


VFILTA3 - VSAM FILE TABLE (RECORD I/O) 


These run-time tables are obtained dynamically for each open file referred to in the 
current VS BASIC program. They contain information about the current status ot the tiles 
they describe. The beginning portion of both FILTAB and VFILTAB are formatted in the 
same way for ease of processing without, regard to the type ot I/O (stream or record) . 


FILTAB (File Table for Stream and Record Files) 


-,- -1 

100 (00) | 02 (0 2) 1 

| NAMLNGTH | FILENAME | 

l _1 J 

1 

14(20) 116 (22) 

F |MODE jFILE)IO 

TYPE)FLAG |NUM jcODB 

it >■ 

18(24) {1A (26) 1 1C (28) j 

OPEN III 1 

FLG | | EXITDISP | CllRIN ) 

20(32) 

BUFDIS 

24(36) 

RECRDEND 

20 (40) j 2C (4 4) j 

RECCNT j ITEMCNT ! 

30(48) 

PHYSBUFF 

34(52) 

| FRSTBYTE 

i _ _i 

. . .... j j 

38(56) j 3C (6 0) j 3C (62) j 

PHYSEND |LRECLMAX j BLOCKMAX | 

1 _ __L_1_1 

40(64) ] 42 (68) 

RESET|EXEC jIN | 

FLG jSWIT)PRES| 

. 


i_i_i_ j _i 


FILTAB Table Entries (Stream and 

Record 

Name 

Description 


Files) 




FILENUM 

File index in FILPTRS 





IOCODE 

OPENFLG 

Error Return 

code (X'01' 

Name 

Description 




Contents 

Meaninq 

NAMLNGTH 

Length of file name 



X f 01* 

GET request 

FILENAME 

DDnarae of file 



X 1 02 1 

PUT request 

FTYPE 

Type of file 




X 1 08' 

OPEN request 


Contents 

Meaning 



X 1 2 9 1 

RESET request 


X’00' 

Stream 


EXITDISP 




X' 01 ’ 

Record 


CURIN 




X' 8 0 1 

Undefined 

file 





X' 40 1 

'PRINT TO/INPUT FROM' 

file 



MODEFLAG 

Mode of file 



BUFDIS 




Contents 

Meaninq 


RECRDEND 




X* 00* 

Input 


RECCNT 




X' 01 • 

Output 


ITEMCNT 

PHYSBUF 

FRSTBYTE 

PHYSEND 

LRECLMAX 

BLOCKMAX 

RESETFLG 

EXECSWIT 

INPRES 
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VFILTAB (File Table for Record Oriented Files) 


1-1- 1 

(000 (000) (002(002) | 

(VNAMELN ( VFILNAME j 

i_ j i 

| 

1 

1 

1 

| _ 

014 (020) | 016 (022) 

VF |VF |VFILE|VCEX 
TYPE|MODE|NO j CEPT 

i ■ i 

018(024) 01A(026) |01C(028) | 

VF |VACS VEXITDISP ( VERROR j 

ORG j LAST j | 

«..«.. 1 — j 

{0 20 (0 32 
j VAC BA 

L .. 

024 (036) 

VAREA 

028(040) j 02C (044) j 

VAREALN | VRKP | 

j j 

r 

I 0 30 (0*48) 

| VCKEYA 

034 (052) 

VLKEYA 

038 (056) j 0 3C (060) j 

VRPLA j VAREALNR | 

_i 1 

! 0 40 (064) 
j VAR LALNW 

044 (068) 

VAREALNP 

1 1 

048(072) j 04C (076) j 

VARENDA | VRBACUR | 

S0S0 (080) j 052 (082) 
jv'KEVLEN (VRE (VKEY 

j | QST j ED 

054(084 '056 (086) 

VCKEYLEN V |VL 

COND jcOND 

> i 

058(088) j 05A (090) jo5C(092) j j 

VLEX|VAASTJ VLKEYED jVLKEYLN j | 

CEPT j RBQ | | || 

j-- L - • 

(0 60 (0 96) 
j VACBLEN 

| ... 

064 (100) 

VRPLLEN 

06B (10 4) j 06C (108) j 

VEXLLEN j VRBALAST | 

. . i 4 

1070 (1 12) 

* VRBAEND 
j 

074 (1 16) 

VCLEARA 

1 i 

078(120) |07C(124) | 

VCLEARLN j VAREAMNL | 

i ■ 

(030 (128) 
j VAPEAMXL 

i _ i 

004 (132) 

VLNAREA 

i _ i 

» 


VFILTAB Table Entries Name 

VAREALNP 


Name 

Description 


VARENDA 

VNAMELN 

Length of file name 

VRBACUR 

VFILNAME 

DD name of file 


VFTYPE 

Type of file 


VKEYLEN 


Contents 

Meaning 

VREOST 


X' 00' 

Stream file 

VKEY ED 


X' 01 ' 

Record file (VSAM) 



X 1 8 0 ' 

Undefined file 



X '4 0 • 

PRINT TO/INPUT FROM 

file 

VFMODE 

Mode of file 




Contents 

Meaning 



X’ 01 1 

Input 

VCKEYLN 


X* 02 1 

Output 

VCOND 


X' 03 ’ 

Input/output 



X' 04 ' 

Hold 

VLCOND 


X 1 05 1 

OUT REUSE 



X * 06 1 

ALL REUSE 



X 1 07 1 

ALL HOLD REUSE 


VFILENO 

File index in 

i FILPTRS 


VCEXCEPT 

Error return 

code 

VLEXCEPT 

VFORG 

File organization 

VLASTREQ 


contents 

Meaning 

VLKEYED 


X 1 00* 

ESDS 



X'01 1 

KSDS 



X' 02 1 

RRDS 


VACSLAST 

Last file access code 


VEXITDSP 

Displacement 

from EXTPTRS of exit 

VLKEYLN 


entry 


VACBLEN 

VERROR 

Error code sent to error routine 

VRPLLEN 

VACBA 

Address of ACB 

VEXLLEN 

VAREA 

Address of record area 

VRBAIAST 

VAREALN 

Length of record area 


VRKP 

Starting position of key in 

VRBALND 


record 


VCLEARA 

VCKEYA 

Address of current key area 

VCLEARLN 

VLKEYA 

Address of last key area 

VAREANML 

VRPLA 

Address RPL 


VAREAMXL 

VAREALNR 

Length of last record read 

VLNAREA 

VAREALNW 

Length of last record written 
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Description 

Length of last record accessed 

Address of last position in VAREA 

Relative byte address of record 

to be accessed 

Length of record for tile 

Current request 

Current request keyed? 


C ontents Meaning 
0 No 

1 Yes 

Length of key in current request 
Key search condition in current 
request 

Key search request in last 
request 


Last error return code 

Last request 

Last request keyed? 

Contents Meaning 
0 No 

1 Yes 

Length of key in last request 

Length of ACB 

Length of RPL 

Length of EXLIST 

Relative byte address of last 

record 

File extent at open time 
First position of record to clear 
Number of positions to clear 
Minimum size of record 
Maximum size of record 









VARCON - VARIABLE AND CONSTANT AREA 


Licensed Material - Property of IBM 


The variable and constant area contains storage for the variables and constants that are 
lefined in the current VS BASIC program. The first part of this area is pre-allocated 
for certain constants that the VS BASIC Processor requires. 


VARCON - Variable 

and constant Area (Compilation and Run- 

-time) 


joO(OOO) 

1_ 

INTCON or FLT0 


08(008) 

FLT1 

i 

10(016) 

FLT2 


18(024) 

FLT3 


20(032) 

FLT4 


28(040) 

FLT5 


30 (048) 

FLT6 


38(0 56) 

FLT7 


40(064) 

FLT8 


48(072) 

FLT9 


50(80) 

INTGRLN or E 


58 (088) 

PI 


60(096) 

SQR2 


68(104) 

INCM 


70(112) 

LBKG 


78(120) 

GAL1 


80(128) 

FLT180PI 


88(136) 

FLTPI180 


90(144) 

FLTPLOS1 


98(152) 

FLTMIN1 


A0 (160) 

FLT47 


j A8 (168) 

j 

FLT32767 


B0(176) 

FLTFXM1 


j B8 (184) 

1 

FLT32 


CO (192) 

i_ 

FLT9S5 

_1 

|.-. 

ca (200) 

FLT559 


j DO (208) 

|FIX255 

D4 (212) 

_ 

JE8(232) 

1 

| 

BUFF 

1 

1 F0(240) 

RELREC# 

1F8(248) 

1 

| 

ERRN 


[ 100(256) 

1 

ERRL 

1108 (264) 

1 

_1_ 

ERRC 


j110(272) 

ERRF 




_i 




NULLSTR 






J123 (291) 

1 

• 


i 

i 

i 

4 

f 



User Defined Variables 
and constants 


i 

1 

1 

_ i 
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Name Description 

INTCON or 

FLTO Floating-point 0 

FLT1 Floating-point 1 

FLT2 Floating-point 2 

FLT3 Floating-point 3 

FLT4 Floating-point 4 

FLT5 Floating-point 5 

FLT6 Floating-point 6 

FLT7 Floatinq-point 7 

FLT8 Floating-point 8 

FLT9 Floating-point 9 

E The constant e 

PI The constant pi 

SQR2 The square root of 2 

INCM Conversion constant for inches to centimeters 

LBKG Conversion constant for pounds to kilograms 

FLT180PI Floating-point 180/pi 

FLTPII80 Floating-point pi* 180 

FLTPLUS1 Floating-point +1 

FLTMIN1 Floating-point -1 

FLT47 Floating-point 47 

FLT32767 Floating-point 32767 (32K) 

FLTFXM1 Largest floating-point number minus 1 
FLT32 Floating-point 32 

FLT9S5 Conversion constant for centigrade to fahrenheit 

FLT5S9 Conversion constant for fahrenheit to centigrade 

FIX255 Fixed-point 255 

NULLSTR String of blanks 

BUFF Read-only variable SBUFF 

RELREC# Read-only variable SREC 

ERRN Read-only variable SERR 

ERRL Read-only variable SLINE 

ERRC Read-only variable SCODE 

ERRF Read-only variable SFILE 
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OBJAREA - OBJECT AREA 


Licensed Material - Property ot IBM 


The object area is the portion of storage that is set aside for the object code that is 
generated for the current VS BASIC program. The beginning of the area is pre-set to 
error branch addresses that may be required during execution. In i.iost cases, register 10 
points to OBJAREA. If the value in register 10 is lost, the address ot the object area 
can be found in BSOBJ in PGR. 


OBJAREA - Object Code Area (Compilation and Run-time) 


i-—i-----» 


00(00) 

REFERR1 

08(08) | 
REFERR2 j 

t. 

10(16) 

SUBSERR 

18(24) j 

GOSUBER or STKERR | 

20(32) 

RETURNER 

_ j 

28 (40) j 

SUBSCR2 : 

1 

30(48) 

SUBSCR3 

38(56) ! 

CONCAT1 j 

... _- - j 

40(64) 

ARGERR 

I_ _i 

48(7 2) | 

FENDERR j 

l _ J 

- —i- 

50 (80) J 5A(90) j 

1 1 

------ J i 

F 

1 

1 

l 

72(114) < 

BGEX \ 


Name 
REFERR1 
REFERR2 
SUBSERR 
GOSUBER 
or STKERR 
RETURNER 
SUBSCR2 
SUBSCR3 
CONCAT1 
ARGERR 
FENDERR 


Description 

Undefined line number branch address 
Undefined user function branch address 
Subscript out of bounds branch address 
DEF/GOSUB call to deeply nested branch address 

Illegal DEF/GOSUB return branch address 

Number of subscripts not equal branch address 

Invalid subscript branch address 

Concatenated string too long branch address 

Wrong argument type branch address 

No return from function definition branch address 


Code to link to ICDKERR 

Code to ensure object code/library compatibility 
BGEX Address of start of object code 
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PRGA - COMPILER WORKSPACE 

PRGA is a compile-time only area that contains dynamic workspace for compiler routines. 
The compiler routines must use this outside workspace because they are re-entrant. There 
is no base register for PRGA; each routine that uses it establishes its own base. The 
address of PRGA can, however, be found in BSPRGA in PRG. 


PRGA - Work Areas (Compilation) 




0A0 (0160) 


|0C8(0200) 
j PARMTBL 


STDCMP 


IMNUMS 


|29C (0668) 


364 (0868) 


EXTMUMS 


VARPTRS 


|42C(1068) 


6E4 (1764) 


FMLASVA 


|6F8(1784) 


FMLASVC 


j FMLASVC 


704(1796) 

WEXEC 


(708(1800) 
j WCATSAV 


(70C(1804) 




PRGA - Work Areas (Compilation) (continued) 


Licensed Material - Property ot IBM 


| 89C(2204) 
BRP 



| 8A4 (2212) 


|96C(2412) 
IWSYM 


|970 (2416) 972(2418) j j I I I I I 

jwCATRESL WFL5|WFLG |WPAR|WFTN |WCOMjwCAT|WWK |WCMP| 
| |2 (LEV j LEV JCT jCTl j 


|97C (2428) 
j SCN1RA2 


1980 (2432) 

I SCN1RA3 



SCN2RA2 


j 99C(2460) 
j SCN1RC2 


1 

19A4 (2468) 


|9AC(2476) 

j SCN1RC2 

1 

SCN2RC2 

j CHARI 


j 9E0 (2528) 


DATUM 


|9E8(2536) 


INTGER 


9F0 (2544) 
DIGIT 


9F4 (2548) 
EXPON 


j 9F8(2552) 
(SWI | 
j TCH j 


9FC(2556) 
LINSVA 


LIN SVA 


|AOC(2572) 
| IDSVRC3 


j A10 (2576) 
I LINSAV 


j A14 (2580) 


96E (2414) 
WCATLTHR 


1 - 

1 

-1-1 

|98C(2444) | 

j SCN1RA1 

j_ 

j SCN2RA2 j 


1- 

9B0 (2480) | 

1 CHAR2 | 

: i 

i ....... 

9B4 (2484) 
SCNCODE 

f ' 1 

j 9B8(2488) | 

)RETS|STR |SCN J | 

jNSAVjSW |TMP | | 

i • i . . • i 

i - 1 

j 9BC(2492) 
j CONSVC 

1 

t .... 

f 

1 

CONSVC 

9C4 (2500) 

CONSVA 


* 

| CONSVA 

1-1 

9D4(2516) 

i_ 

STCSV 

-I 
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Name Description 

HSHPTRS HASH TABLE (FOR LINTAB) 

FORSTACK FOR STATEMENT STACK 

STDCMP STATEMENT PROCESSOR WORKAREA 

PARMTBL VARPTRS SAVE AREA USED DURING FUNCTION PROCESSING 
Contents Meaning 

0 DISPLACEMENT INTO VARPTRS FOR PARAMETERS 

2 CONTENT OF VARPTRS ENTRY BEFORE 

PARAMETER ALLOCATION 

IMNUMS IMAGE ENTRIES 

EXTNUMS EXIT ENTRIES 

VARPTRS NUMERIC AND ALPHANUMERIC VARIABLE POINTERS 

FMLASVA SAVE AREA FOR ICDJFMLA ABSOLUTE REGISTERS 

FMLASVC COMPILER REGISTER SAVE AREA 

WEXEC INSTRUCTION EXECUTE WORD 

WCATSAV STRING CONCATENATION SAVE OPDS ENTRY 

OPDS OPERAND STACK 

3RP REGISTER TABLE 

OPRS OPERATOR STACK 

WSYM SAVE AREA FOR PREVIOUS OPERATOR OR OPERAND 

WCATLTHR STRING CONCATENATION RESULTANT LENGTH 

WCATRESL STRING CONCATENATION RESULTANT LOCATION 

WFLG ICDJFMLA ENTRY FLAG BYTE 

Contents Meaning 

X'OO* RECEIVING VARIABLE ENTRY 

X'04' SINGLE EXPRESSION ENTRY, RETURN CODE IN REG. 

X'O3' SINGLE EXPRESSION ENTRY, NUMERIC EXPRESSION 

RETURN IN FLOATING-POINT REGISTER 0 
X'01* SINGLE EXPRESSION ENTRY, RETURN IN STORAGE 

X'OF* SENDING LIST ENTRY 

WFLG2 WORK FLAG BYTE 

WPARLEV PARENTHESIS LEVEL COUNTER 

WFTNLEV FUNCTION OR SUBSCRIPTED VARIABLE LEVEL COUNTER 

WCOMCT COMMA COUNTER 

WCATCT1 STRING CONCATENATION - OPDS ENTRY TO PROCESSOR 
WWK WORK BYTE 

WCMP COMPARE OPERATOR SAVE AREA 

SCN1RA2 ICDJSCN1 SAVE AREA FOR ABSOLUTE REGISTERS 2-5 

SCN2RA2 ICDJSCN2 SAVE AREA FOR ABSOLUTE REGISTERS 2-5 

SCN1RC2 ICDJSCN1 SAVE AREA FOR REGISTERS RC3-RC4 

SCN2RC2 ICDJSCN2 SAVE AREA FOR REGISTERS RC3-RC4 

CHARI TRANSLATED FIRST SOURCE CHARACTER 

CHAR2 TRANSLATED SECOND SOURCE CHARACTER 

SCNCODE SAVE AREA FOR ARGUMENT LIST ENTRY 
RETSWSAV SAVE AREA FOR RETSW 

STRSW SUBSTRING PROCESSING SWITCH 

contents Meaning 

0 NO SUBSTRING ENCOUNTERED 

1 SUBSTRING BEING PROCESSED 

SCNTMP USED FOR FULL WORD ALIGNMENT 

CONSVC 
CONSVA 
STCSV 
DATUM 
INTGER 
DIGIT 
EXPON 
SWITCH 

LINSVA SAVE AREA FOR ABSOLUTE REGISTERS 

IDSVRC3 SAVE AREA FOR REGISTER RC3 
LINSAV SAVE AREA FOR BINARY LINE NUMBER 


120 



NUC - COMMON COMPILER ROUTINES 
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NUC is the first block of the compiler. It is located in the compiler module ICDJNUCL. 
Register 7 always points to NUC. NUC contains routines that are commonly used by most ol 
the other compiler routines. In addition, NUC contains a table of numeric constants and 
bit values, masks, a translate table for character conversion and a table ot addresses 
for all of the compiler routines (ADDTBL)• 


NUC (First Block of the Compiler) 


000(000) 

004 (004) 

008(008) 

$0 

00C(012) 

$1 

010 (016) 

014 (0 20) 

018 (024) 

C 1C (028) 

$2 

- 

$3 

$4 

$5 

020 (032) 

024 (036) 

028(040) 

02C (044) 

$6 

$7 

_ __ 

$8 

$9 

030 (048) 

034 (052) 

038(056) 

03C (060) 

$10 

$11 

$12 

$16 

040 (064) 

044 (068) 

048(072) 

04C (076) 

$17 

$18 

_ . 

$22 

$23 

050 (080) 

054 (084) 

058(088) 

05C (092) 

$24 

$29 

$30 

_ 

$36 

060 (096) 

064 (100) 

068 (104) 

06C (108) 

$38 

$39 

$60 

$90 

070 (112) 

074(116) 

078(120) 

07C (124) 

$100 

$200 

$255 

$256 

080 (128) 

084 (132) 

080 (136) 

08C (140) 

$1000 

$2048 

$4095 

. 

$4096 

090 (144) 

094 (148) 

098(152) 

09C(156) 

$32767 

$64000 

B13 

B14 

0A0(160) 

0A4 (164) 

0A8(168) 

0AC (172) 

B15 

B13A15 

B14T15 

B20T31 

OBO (176) 

0B4 (180) 

GB8 (184) 

0BC (188) 

B16T31 

B0T28 

B0T29 

B29T31 

0C0 (192) 

0C4 (196) 

0C8(200) 

0CC(204) 

SMASK1 

SMASK3 

LIFTMP 

LFORTMP 

0D0(208) 

OKBPSZE 

0D4 (212) 

VBASECHK 

0D8 (21 6) CTAB 

FFFF FFFF 

FF00 FFFF 

FFFF FFFF 

FFFF FFFF 

FFFF FFFF 

FFFF FFFF 

FFFF FFFF 

FFFF FFFF 

FFFF FFFF 

FFFF FFFF 


Data Areas 121 















Licensed Material - Property of IBM 


NOc (First Block of the Compiler) (continued) 


FFFF FFFF 

FFFF FFFF 

FFFF FFFF 

FFFF FFFF 

-■! 

FFFF FFFF 

FFFF FFFF 

00FF FFFF 

FFFF FFFF 


FFFF FFFF 

5A73 6A76 

FFFF FFFF 

FFFF FFFF 


FFFF FF26 

6974 FFFF 

6B6C FFFF 

FFFF FFFF 


FFFF FFFF 

FFFF 5BFF 

FFFF FFFF 

FFFF FFFF 


FFFF FF25 

27FF 5CFF 

FFFF FFFF 

FFFF FFFF 


FFFF 75FF 

5EFF FFFF 

FFFF FFFF 

FFFF FFFF 


FFFF FFFF 

FFFF FFFF 

FFFF FFFF 

FFFF FFFF 


FFFF FFFF 

FFFF 5FFF 

FFFF FFFF 

FFFF FFFF 


FFPF FFFF 

FFFF 5DFF 

FF0B 0C0D 

0E0F 1011 


1213 FFFF 

FFFF FFFF 

FF14 1516 

1718 191A 


1B1C FFFF 

FFFF FFFF 

FFFF 1D1E 

1F20 2122 


2324 FFFF 

FFFF FFFF 

0102 0304 

0506* 0708 



1 

1D8(472) 

1 DC(4 7 6) 


090A FFFF 

FFFF FFFF 

LCCDEF 

LCCMPA 


ISO(480) 

1E4 (484) 

1E8 (488) 

1EC(492) 


LCCTL 

LCDEF2 

LCDFRM 

LCERRN 


1F0 (496) 

1F4 (500) 

1F8(504) 

1FC (508) 


LCERRP 

LCERRS 

LCERRT 

LCFBN1 


200 (512) 

204(516) 

208(520) 

20C(524) 


LCFBN2 

LCFCAT 

LCFEXP 

LCFGEN 


210 (528) 

214 (532) 

218(536) 

21C(540) 


LCFNE2 

LCFRM2 

LCFRM3 

LCFRM5 


220 (544) 

224(548) 

228(552) 

22C (556) 


LCFUNY 

LCINFO 

LCMATD 

LCNUC1 


230 (560) 

234 (564) 

238(568) 

23C (572) 


LCDATA 

LCFOR 

LCFORM 

LCIMAG 


240(576) 

244 (580) 

248(584) 

24C(588) 


LCRDIM 

LCRETV 

LCRUKA 

LCUSTB 


250 (592) 

254 (596) 

258(600) 

25C (604) 


LCREAD 

LCDIMG 

LCFNE1 

LCEXIT 


260 (608) 

264(612) 

268(616) 

26C(620) 


LCVRD 

LCIF1 

1 

LCIF2 

1 

LCDDAT 


270(624) 

274 (628) 


27C(636) 


LCCBAIN 

04C3 C8C1 

1 

C9D5 4040 

LCCLOSE 


780(640) 

1 

288(648) 

28C (652) 


04C3 D3D6 

B2C5 4040 

LCDEF 

J 

02C4 C5C6 

» 



- . - - - | 

294 (660) 

298 (664) 



4040 4040 

i- - - — -- , ,i 

LCDELETE I 

l— —— i 

05C4 C5D3 

C5E3 C540 
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NUC (First Block of the Compiler) (continued) 


2A0(672) 

LCDIM 

| 2A4(676) 

[ 02C4 C9D4 

4040 4040 

- , - 

| 2AC(684) 

| LCEND 

-1 

2B0(688) 

02C5 D5C4 

4040 4040 

2B8 (696) 

LCDEXT 

I 2BJ(700) 
j 03C5 E7C9 


E340 4040 

| 2C4(708) 

* LCTFN 

1 

2C8(712) 

01C6 D540 

4040 4040 


2D0(720) 

IiCTFOR 

| 2D4 (724) 

02C6 D6D9 

4040 4040 

1 

2DC(732) 

LCGET 


2E0(736) 

02C7 C5E3 

4040 4040 

2E8(744) 

LCG0SUB 

1 - 

| 2EC(748) 
j 04C7 D6E2 


E4C2 4040 

j 2F4(756) 

1 LCGOTO 

| 

2F8(760) 

03C7 D6E3 

D640 4040 


300(768) 

LCIF 

j 304(772) 
j 01C9 C640 

4040 4040 

] 30C (780) 
j LCINPUT 


310(784) 

04C9 D5D7 

E4E3 4040 

318(792) 

LCLET 

1 

31C(796) 
j 02D3 C5E3 


4040 4040 

] 324(804) 

1 LCMAT 

j _ _ 

328(808) 

02D4 C1E3 

4040 4040 


330(816) 

LCNEXT 

j 334(820) 

J 03D5 C5E7 

E340 4040 

j 33C(828) 
j LCON 


340(832) 

01D6 D540 

i 

4040 4040 




D440 4040 

| 354(852) 
j LCPAUSE 

358(856) 

04D7 C1E4 

E2C5 4040 


360(864) 

LCPRINT 

| 364(868) 

| 04D7 D9C9 

D5E3 4040 

| 36C(876) 
j LCPUT 


370(880) 

G2D7 E4E3 

4040 4040 j 

378(888) 

LCTRD 

j 37C(892) 
j 03D9 C5C1 


C440 4040 

1 384(900) j 

1 LOREREAD I 

1 

388(904) 

05D9 C5D9 

C5C1 C440 


390(912) 

LCRESET 

! 394(916) 

04D9 C5E2 

C5E3 4040 

J 39C(924) 

1 LCRESTOR 

1 


3A0(928) 

06D9 C5E2 

1 

E3D6 D9C5 ! 

3A8(936) 

LCRETURN 

1 

3AC(940) 
j 05D9 C5E3 


E4D9 D540 

1 3B4(948) j 

| LCREWRIT 

I 1 

3B8(952) 

06D9 C5E6 

D9C9 E3C5 


3C0(960) 

LCSTOP 

j 3C4(964) 
j 03E2 E3D6 

D740 4040 

[ 3CC(972) 
j LCUSE 


3D0(976) 

02E4 E2C5 

1 

4040 4040 

3D8(984) 

LCWRITE 

j 3DC(988) 
j 04E6 D9C9 


! E3C5 4040 

1 

1 3E4(996) 

S FFFF FFFF 

FFFF FFFF 

FFFF FFFF 

_I 


3F0(1008) 


Data Areas 123 







































Licensed 

NUC 

Material - Property of IBM 


Name 

Description 


$0 

F»0* 


$1 

P*1* 


$2 

F’2* 


$3 

F* 3' 


$4 

F*4» 


$5 

F'5' 


$6 

F*6» 


$7 

F'7* 


$8 

F*8' 


$9 

F' 9 • 


$10 

F' 10* 


$11 

F* 11* 


$12 

F* 12' 


$16 

F* 16' 


$17 

F' 17* 


$18 

F' 18* 


$22 

F* 22' 


$23 

F* 23* 


$24 

F'24‘ 


$29 

F* 29* 


$30 

F*30* 


$36 

F'36' 


$38 

F* 38' 


$39 

F'39* 


$60 

F* 60* 


$90 

F' 90* 


$100 

F*100 * 


$200 

F* 200 * 


$255 

F'255* 


$256 

F* 256 ’ 


$1000 

F'1000' 


$2048 

F*204 8* 


$4095 

F'4095* 


$4096 

F' 4096* 


$32767 

F»32767* 


$64000 

F* 64000' 


B13 

X*00040000* 


B14 

X*00020000* 


B15 

X*00010000* 


B13A15 

X*00050000' 


B14T15 

X*00030000* 


B20T31 

X*00000FFF* 


B16T31 

X'OOOOFFFF* 


B0T28 

X* FFFFFFF8* 


B0T29 

X'FFFFFFFC* 


B29T31 

SMASK1 

SMASK3 

LIFTMP 

LFORTMP 

DKBPSZE 

X*00000007* 


VBASBCHK 



CTAB 

Scan translate table 


LCCDEF 

Displacement from ICDJNOCL 
ICDJCDEF 

to 

LCCMPA 

Displacement from ICDJNUCL 
ICDJCMPA 

to 

LCCTL 

Displacement from ICDJNOCL 
ICDJCTL 

to 

LCDEF2 

Displacement from ICDJNOCL 
ICDJDEF2 

to 

LCDFRM 

Displacement from ICDJNOCL 

to 


ICDJDFRM 

LCERRN Displacement from ICDJNOCL to 

ICDJERRN 


Name 

Description 




LCERRP 

Displacement 

ICDJERRP 

trom 

ICDJNUCL 

to 

LCERRS 

Displacement 

ICDJERRS 

from 

ICDJNUCL 

to 

LCERRT 

Displacement 

ICDJERRT 

from 

ICDJNUCL 

to 

LCFBN1 

Displacement 

ICDJFBN1 

from 

ICDJNUCL 

to 

LCFBN2 

Displacement 

ICDJFBN2 

from 

ICDJNUCL 

to 

LCFCAT 

Displacmentt 

ICDJFCAT 

from 

ICDJNUCL 

to 

LCFEXP 

Displacement 

ICDJFEXP 

from 

ICDJNUCL 

to 

LCFGEN 

Displacement 

ICDJFGEN 

from 

ICDJNUCL 

to 

LCFNE2 

Displacement 

ICDJFNE2 

from 

ICDJNUCL 

to 

LCFRM2 

Displacement 

ICDJFRM2 

from 

ICDJNUCL 

to 

LCFRM3 

Displacement 

ICDJFRM3 

from 

ICDJNUCL 

to 

LCFRM5 

Displacement 

ICDJFRM5 

from 

ICDJNUCL 

to 

LCFUNY 

Displacement 

ICDJFUNY 

from 

ICDJNUCL 

to 

LCINFO 

Displacement 

ICDJINFO 

from 

ICDJNUCL 

to 

LCMATD 

Displacement 

ICDJMATD 

from 

ICDJNUCL 

to 

LCNUC1 

Displacement 

ICDJNUC1 

from 

ICDJNUCL 

to 

LCDATA 

Displacement 
ICDJDATA 

from 

ICDJNUCL 

to 

LCFOR 

Displacement 

ICDJFOR 

from 

ICDJNUCL 

to 

LCFORM 

Displacement 

ICDJFORM 

from 

ICDJNUCL 

to 

LCIMA3 

Displacement 

ICDJIMAG 

from 

ICDJNUCL 

to 

LCRDIM 

Displacement 

ICDJRDIM 

from 

ICDJNUCL 

to 

LCRETV 

Displacement 

ICDJRETV 

from 

ICDJNUCL 

to 

LCRUNA 

Displacement 

ICDJRUNA 

from 

ICDJNUCL 

to 

LCUSTB 

Displacement 

ICDJUSTB 

from 

ICDJNUCL 

to 

LCREAD 

Displacement 

ICDJREAD 

from 

ICDJNUCL 

to 

LCDIMG 

Displacement 

ICDJDIMG 

from 

ICDJNUCL 

to 

LCFNE1 

Displacement 

ICDJFNE1 

from 

ICDJNUCL 

to 

LCEXIT 

Displacement 

ICDJEXIT 

from 

ICDJNUCL 

to 

LCVRD 

Displacement 

ICDJVRD 

from 

ICDJNUCL 

to 

LCIF1 

Displacement 

ICDJIF1 

from 

ICDJNUCL 

to 

LCIF2 

Displacement 

ICDJIF2 

from 

ICDJNUCL 

to 

LCDDAT 

VBTAB or 

Displacement 

ICDJDATA 

from 

ICDJNUCL 

to 

LCCHAIN 

Displacement 

ICDJCHN 

from 

ICDKNUCL 

to 
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Name 

Description 




LCCLOSE 

Displacement 
ICDJCLOS 

from 

ICDJNUCL 

to 

LCDEF 

Displacement 
ICDJDEFR 

from 

ICDJNDCL 

to 

LCDELETE 

Displacement 

ICDJVDEL 

from 

ICDJNUCL 

to 

LCDIM 

Displacement 
ICDJDIM 

from 

ICDJNUCL 

to 

LCEND 

Displacement 
ICDJEND 

from 

ICDJNUCL 

to 

LCDEXT 

Displacement 
ICDJD EXT 

from 

ICDJNUCL 

to 

LCTFN 

Displacement 
ICDJTFN 

from 

ICDJNUCL 

to 

LCTFOR 

Displacement 
ICDJT FOR 

from 

ICDJNUCL 

to 

LCGET 

Displacement 

ICDJGET 

from 

ICDJNUCL 

to 

LCGOSUB 

Displacement 
ICDJGOSB 

from 

ICDJNUCL 

to 

LCGOTO 

Displacement 

ICDvTGOTO 

from 

ICDJNUCL 

to 

LCIF 

Displacement 
ICDJIF 

from 

ICDJNUCL 

to 

LCINPUT 

Displacement from 
ICDJINPT 

ICDJNUCL 

to 

LCLET 

Displacement 

ICDJLET 

from 

ICDJNUCL 

to 
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Name 

Description 




LCMAT 

Displacement 

ICDJMATV 

from 

ICDJNUCL 

to 

LCNEXT 

Displacement 

ICDJNEXT 

from 

ICDJNUCL 

to 

LCON 

Displacement 

ICDJON 

from 

ICDJNUCL 

to 

LC0PEN 

Displacement 

ICDJOPEN 

from 

ICDJNUCL 

to 

LCPAUSE 

Displacement 

ICDJPAUS 

from 

ICDJNUCL 

to 

LCPRINT 

Displacement 

ICDJPRNT 

from 

ICDJNUCL 

to 

LCPUT 

Displacement 
ICDJPUT 

from 

ICDJNUCL 

to 

LCTRD 

Displacement 

ICDJTRD 

from 

ICDJNUCL 

to 

LCREREAD 

Displacement 

ICDJVRRD 

from 

ICDJNUCL 

to 

LCRESET 

Displacement 

ICDJRSET 

from 

ICDJNUCL 

to 

LCRESTOR 

Displacement 

ICDJRSTO 

from 

ICDJNUCL 

to 

LCRETURN 

Displacement 

ICDJRETN 

from 

ICDJNUCL 

to 

LCREWRIT 

Displacement 

ICDJVRWR 

from 

ICDJNUCL 

to 

LCSTOP 

Displacement 

ICDJSTOP 

from 

ICDJNUCL 

to 

LCUSE 

Displacement 

ICDJUSE 

from 

ICDJNUCL 

to 

LCWRITEF 

Displacement 

ICDJVWRT 

from 

ICDJNUCL 

to 
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BIFTAB - BRANCH INFORMATION TABLE 


The Branch Information Table is a table of addresses of all the run-time routines. It 
provides the VS BASIC Processor and the object code with the means to get from 
routine-to-routine during execution. Register 13 usually points to BIFTAB. It the value 
in register 13 is lost, the location of BIFTAB can also be found in VSBLIB in PRG. 


ICDKBFTB (Branch Information Table) 


000(000) 

LCKETAB 

i" "■ —-— 1 i 

004 (004) 

LCKCHN 

008(008) 

LCKCLK 

.... 1 —1 

00C(012) 

LCKCLOS 

010 (016) 

014(020) 

018(024) 

01C (028) 

LCKCNVT 

LCKCPU 

LCKDAT 

LCKDET 

020 (032) 

024 (036) 

028(040) 

02C(044) 

LCKDOT 

LCKERRR 

LCKERRS 

LCKERRT 

030(040) 

034 (052) 

038(056) 

03C(060) 

LCKETF2 

LCKETOF 

LCKFSCN 

LCKGET 

040 (064) 

044 (068) 

048(072) 

04C (076) 

LCKIDX 

i 

LCKINPT 

LCKIOTP 

LCKJDY 

050 (080) 

054(084) 

058(088) 

05C (092) 

LCKKLN 

LCKKPS 

LCKLEN 

LCKMADD 

060(096) 

064 (100) 

068(104) 

06C(108) 

LCKMASN 

LCKMASR 

LCKMAT 

LCKMDSR 

070(112) 

074(116) 

078(120) 

07C (124) 

LCKMIDN 

LCKMINV 

LCKMMUL 

LCKMSCA 


084 (132) 

088(136) 

08C(140) 


LCKMTRN 

LCRNCPD 

LCKNUM 

090 (144) 

094 (148) 

098(152) 

09C (156) 

LCROPEN 

LCKOPN1 

LCKORGE 

LCKPLIN 

0A0 (160) 

0A4 (164) 

0A8(168) 

0AC (172) 

LCKPRD 

LCKPRNT 

LCKPUT 

LCKRDM1 

0B0 (176) 

0B4 (180) 

0B8 (184) 

0BC (188) 

LCKRDM2 

LCRREAD 

LCKRLN 

LCKRND 

0C0 (192) 

0C4 (196) 

0C8 (200) 

0CC(204) 

LCKRSBT 

LCKRONX 

LCKSTR 

LCKSTRP 

0D0 (208) 

0D4 (212) 

0D8(216) 

0DC (220) 

LCKSUM 

LCKTIM 

LCKTOOT 

LCKVCLS 

0E0 (224) 

0E4 (228) 

0E8 (232) 

0 EC (236) 

LCKVDEL 

LCKVOPN 

LCKVRD 

LCKVRRD 

0F0(240) 

0F4 (244) 

0F8 (248) 

0FC(252) 

LCKVRST 

LCKVRNR 

LCKVWRT 

LCKDBPR 

100 (256) 

104 (260) 

108(264) 

10C(268) 

LCKVEND 

LCKMAX 

LCKMIN 

LCKSQR 

i -- -.- ■ _J- 


I_ _1 
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Licensed Material - Property of IBM 


i . . i - 1 - 1 - 1 


110(272) 1 

114 (276) 

118(280) 

11C (284) 

| LCKSIN 

_ 

LCKCOS 

LCKSEC 

LCKCSC 


124(292) 

128(296) 

1 ZC (300) 


LCKCOT 

LCKHSN 

LCKHCS 

130 (304) 

134 (308) 

138(312) 

13C(316) 

LCKHTN 

LCKASN 

LCKACS 

LCKATN 

140(320) 

144 (324) 

148(328) 

14C (332) 

LCKLOG 

LCKLGT 

LCKLTO 

LCKEXP 

150 (336) 

154(340) 

158(344) 

15C (348) 

LCKPWR 

LCKDMAX 

DCKDMIN 

LCKDSQR 

160 (352) 

164 (356) 

168(360) 

16C (364) 

LCKDSIN 

LCKDCOS 

LCKDSEC 

LCKDCSC 

170 (368) 

174 (372) 

178(376) 

17C (380) 

LCKDTAN 

LCKDCOT 

LCKDHSN 

LCKDHCS 

180 (384) 

184(388) 

188(392) . 

18C (396) 

LCKDHTN 

LCKDASN 

LCKDACS 

LCKDATN 

190 (400) 

194 (404) 

198(408) 

19C (402) 

LCKDLOG 

LCKDLGT 

LCKDLTW 

LCKDEXP 

1A0 (416) 

1A4 (420) 

1A8(424) 

1AC(428) 

LCKDPWR 

LCKRUNY 

LCKON 

LCKCHR 

1B0(448) 

1B4(436) 

1B8(440) 

1BC(444) 

LCKTIO 

LCKVTIO 

LCKXX9 

LCKXX8 

ICO(448) 

1C4 (452) 

1C8(456) 

!" ICC (460) 

LCKXX7 

LCKXX6 

LCKXX5 

LCKXX4 

Ido(464) 

1D4(468) 

1D8(472) 


LCKXX3 

LCKXX2 

i 

LCKXX1 

- 


ICDBIFTB 




Name 

Description 





LCKMAT 

Address 

Of 

ICDKMAT 





LCKMDSR 

Address 

Of 

ICDKMDSR 

Name 

Description 

LCKMIDN 

Address 

of 

ICDKMIDN 

BIPTAB# 




LCKMINV 

Address 

of 

ICDKMINV 

LOST ART # 




LCKMMUL 

Address 

of 

ICDKMMDL 

or 




LCKMSCA 

Address 

of 

ICDKMSCA 

LCfKETAB 

Address 

of 

ICDKETAB 

LCKMSOB 

Address 

of 

ICDKMSUB 

LCKCHN 

Address 

of 

ICDKCHN 

LCKMTRN 

Address 

of 

ICDKMTRN 

LCKCLK 

Address 

of 

ICDKCLK 

LCKNCPD 

Address 

of 

ICDKNCPD 

LCKCLOS 

Address 

of 

ICDKCLOS 

LCKNUM 

Address 

of 

ICDKNUM 

LCKCNVT 

Address 

of 

ICDKCNVT 

LCKOPEN 

Address 

of 

ICDKOPEN 

LCKCPO 

Address 

of 

ICDKCPO 

LCKOPN1 

Address 

of 

ICDKOPN1 

LCKDAT 

Address 

of 

ICDKOAT 

LCKORGE 

Address 

of 

ICDKORGE 

LCKDET 

Address 

of 

ICDKDET 

LCKPLIN 

Address 

of 

ICDKPLIN 

LCKDOT 

Address 

of 

ICDKDOT 

LCKPRD 

Address 

of 

ICDKPRD 

LCKERRR 

Address 

of 

ICDKERRR 

LCKPUT 

Address 

of 

ICDKPOT 

LCKERRS 

Address 

of 

ICDKERRS 

LCKRDM1 

Address 

of 

ICDKRDM1 

LCKERRT 

Address 

of 

ICDKERRT 

LCKRDM2 

Address 

of 

ICDKRDM2 

LCKETP2 

Address 

of 

ICDKETF2 

LCKREAD 

Address 

of 

ICDKREAD 

ECKETOF 

Address 

of 

ICDKETOF 

LCKRLN 

Address 

of 

ICDKRLN 

LCKFSCN 

Address 

of 

ICDKFSCN 

LCKRND 

Address 

of 

ICDKRND 

LCKGET 

Address 

of 

ICDKGET 

LCKRSBT 

Address 

of 

ICDKRSET 

LCKIDX 

Address 

of 

ICDKIDX 

LCKRUNX 

Address 

of 

ICDKRUNX 
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Name 

Description 

Name 

LCKINPT 

Address 

of 

ICDKINPT 

LCKSTR 

LCKINTP 

Address 

of 

ICDKINTP 

LCKSTRP 

LCKJDY 

Address 

of 

ICDKJDY 

LCKSUM 

LCKKLN 

Address 

of 

ICDKKLN 

LCKTIM 

LCKKPS 

Address 

of 

ICDKKPS 

LCKTOOT 

iXKLEN 

Address 

of 

ICDKLEN 

LCKVCLS 

LCKMADD 

Address 

of 

ICDKMADD 

LCKVDEL 

LCKMASN 

Address 

of 

ICDKMASN 

LCKVOPN 

LCKMASR 

Address 

of 

ICDKMASR 

LCKVRD 

LCKVRRD 

Address 

of 

ICDKVRRD 

LCKPWR 

LCKVRWR 

Address 

of 

ICDKVRWR 

LCKDMAX 

LCKVWRT 

Address 

of 

ICDKVWRT 

LCKDMIN 

LCKDBPR 

Address 

of 

ICDKDBPR 

LCKDSQR 

LCKVEND 

Address 

of 

ICDKVEND 

LCKDSIN 

TXK.MAX 

Address 

of 

ICDKMAX 

LCKDCOS 

LCKMIN 

Address 

of 

ICDKMIN 

LCKOSEC 

LCKSQR 

Address 

of 

ICDKSQR 

LCKDCSC 

LCKSIN 

Address 

of 

ICDKSIN 

LCKDTAN 

LCKCOS 

Address 

of 

ICDKCOS 

LCKDCOT 

LCKSEC 

Address 

of 

ICDKSEC 

LCKDHSN 

LCKCSC 

Address 

of 

ICDKCSC 

LCKDHCS 

LCKTAN 

Address 

of 

ICDKTAN 

LCKDHTN 

LCKCOT 

Address 

of 

ACDKCOT 

LCKDASN 

I-CKHSN 

Address 

of 

ICDKHSN 

LCKDACS 

rcKiics 

Addre ss 

of 

ICDKHCS 

LCKDATN 

lokutn 

Address 

of 

ICDKHTN 

LCKDI.OG 

LC KA SN 

Address 

of 

ICDKASN 

LCKDLGT 

LCKACS 

Address 

of 

ICDKACS 

LCKDLTW 

LCKATN 

Address 

of 

ICDKATN 

LCKDEXP 

u:klog 

Address 

of 

ICDKLOG 

LCKDPWR 

Ix.'K!jGT 

Address 

of 

ICDKLGT 

LCKDRUNY 

'.CKiViV? 

Add ress 

of 

ICDKLTW 

LCKON 

l,C KRXP 

Address 

of 

ICDKEXP 

LCKCHR 


LCKTIO 

LCKVTIO 

LCKXX9 

LCKXX8 

LCKXX7 

LCKXX6 

LCKXX5 

LCKXX4 

LCKXX3 

LCKXX2 

LCKXX1 


Description 
Address of ICDKSTR 
Address of ICDKSTRP 
Address of ICDKSUM 
Address of ICDKTIM 
Address of ICDKTOUT 
Address of ICDKVCLS 
Address of ICDKVDEL 
Address of ICDKVOPN 
Address of ICDKVRD 
Address of ICDKPWR 
Address of ICDKDMAX 
Address of ICDKDMIN 
Address of ICDKDSQR 
Address of ICDKDSIN 
Address of ICDKDCOS 
Address of ICDKDSEC 
Address of ICDKDCSC 
Address of ICDKDTAN 
Address of ICDKDCOT 
Address of ICDKDHSN 
Address of ICDKDHCS 
Address of ICDKDHTN 
Address of ICDKDASN 
Address of ICDKDACS 
Address Of ICDKDATN 
Address of tCDKDLOG 
Address Of ICDKDLGT 
Address of ICDKDLTM 
Address of ICDKDEXP 
Address at ICDKDPWR 
Address of icdkrhny 
A ddress of ICDKON 
Address of ICDKCHR 
Address of ICDKTIO 
A ddress of ICDKVTIO 
Spare slot 
Spare slot 
Spare slot 
Spare slot 
Spare slot 
Spare slot 
Spare slot 
Spare slot 
Spare slot 
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The Debug Communications Region contains information for communicating within and between 
routines of the VS BASIC Debug Processor. This information includes addresses and flags 
sed by the debug routines. 


COMREGN (Debug Communications Region) 


000 (000) 

COMSTAB 

- . i 

004 (004) 

COMNVSTB 

. .. 

—— .. 'I 

008(008) 

COMCVSTB 

— 

00C (012) 

COMNASTB 

-, 

010 (016) 

014 (0 20) 

018(024) 

01C (028) 


COMCASTB 

COMCURPU 

COMQUAL 

. 

COMCURST 


020 (032) 

024 (036) 

028(040) 

02C(044) 


COMLASST 

COMLSTPU 

COMDIRCN 

COMWHNCN 


030 (048) 

034 (052) 

038(056) 

042 (060) 


COMSUBST 

COMATNEB 

COMENDEB 

COMATNLN 


040 (064) 

044 (068) 

048(072) 

04C (076) 


COMKSCNP 

COMPUTLP 

COMPPTGT 

COMKPARP 

J 

050 (080) 

054 (084) 

058(088) 

05C (092) 

I 



COM | | 



COMCPPL 

COMJUMP 

TRACE|COMFLAGS| 

• • 

COMFLOW 


0 60 (0 96) 

064 (100) 

068(104) 

06C (108) 


COMZFLGS 

COMLSTDR 

COMP8 

- . . - _ _j 

COMEFMTA 

L 

1 

070 (112) ! 

074 (116) 




COMIFMTA 

COMCNVTA 





L_-I_____J 


COMREGN 


Name 

COMSTAB 

COMNVSTB 

COMCVSTB 

COMNASTB 

COMCASTB 

COMCURPU 

COMQUAL 

COMCURST 

COMLASST 

CO ML ST PU 

COMDIRCN 

COMWHNCN 

COMSUBST 

COMATNEB 

COMENDEB 

COMATNLN 


Description 

Address of the statement table 
Address of the numeric variable 
symbol table 
Address of the character 
variable symbol table 
Address of the numeric array 
symbol table 

Address of the character array 
symbol table 

Address of the directory of the 
current program unit 
Address of the directory of the 
current qualified program unit 
Address of the statement table 
entry for the current statement 
Address of the statement table 
entry for the last statement 
Address of the directory of the 
previous program unit 
Address of the directory chain 
Address of the WHEN chain 
Address of the subroutine stack 
Attention event control block 
END event control block 
Address of the line that was 
entered after an attention 
interrupt 


Name 

Description 

COMKSCNP 

Address of the entry point in 
IKJSCAN 

COMPUTLP 

Address of the entry point in 
IKJPUTL 

COMPPTGT 

Address of the entry point in 
IKJPTGT 

COMKPARP 

Address of the entry point in 
IKJPARS 

COMCPPL 

Address of the command processor 
parameter list 

COMJUMP 

The target address of a GO TO 
statement or zero 

COMTRACE 

Trace information 

Contents Meaning 

X'OO 1 Trace oft 

X 1 0 4• Trace user function 


X • 14• Trace on 

CONFLAGS 

Flags 

Contents Meaning 


COMRUNFL This bit is turned 
on when a RON 
command is issued 
COMNEXT This bit is turned 

on when a NEXT 
command is issued 
COMPURGE This bit is turned 

on when debug output 
is permitted. 

Turned oft by ATTN 
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Contents 

Meaning 

Name 

Description 

COMSCLAB 

This bit is turned 
on when a subcommand 
list is aborted 
because of an 
attention interrupt 


Contents Meaninq 

COMFINAL This bit is turned 
on when the current 
V 1 ? BASIC program has 
completed execution 

COMNXTRG 

This bit is turned 
on when a NEXT is 


COMSCNOB This bit is turned 
on by ICDWNTST to 


issued if COMNINT is 
on 


signal that SCANOBEY 
must be called 

COMATNTG 

This bit is turned 
on when an attention 
interrupt occurs and 
COMNINT is on 


COMSTAI This bit is turned 

on in monitor STAI 
to signal an 
abnormal termination 

COMNINT 

This bit is turned 
on by the monitor to 
indicate that 
attention interrupts 
are not acceptable 


COMSL This bit is turned 

on if long precision 
is required 

COMCMS This bit is turned 

on if debug is 

COMATSCL 

This bit is turned 


operating under CMS 


on when ICDOBEY is 
called to execute a 

COMFLOW 

Address of the flow table in the 
monitor 


subcommand list 

COMZFLGS 

Address of the attention flag in 

COM NOTIP 

This bit is turned 


ZtCOMM 


on when an AT notify 

COMLSTDR 

Previous directory entry 


message has been 

COMPS 

object code's register 8 


issued 

COMEFMTA 

Address of the E-conversion 

COMINTXF 

This bit is turned 


format 


on if control is in 
an attention exit 

COMIFMTA 

COMCNVTA 

Address of the I-conversion 
format 

Address of the convert switch 
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STMTABLE - DEBUG STATEMENT TABLE 

'’’he Debug Statement Table contains information about each source statement in the VS 
SIC program. It indicates whether an AT has been set for the statement and the 
^propriate AT parameters. STMTABLE is constructed by ICDBLDTB from information in 


LINTAB, LINPTRS, 

and LINCHN. 




STMTABLE (Debug 

Statement Table) 




ioo(oo) 

104 (04) 

| 06 (06) 

(08(08) 

10C (12) 1 

j STMLINNO 

(STWCOUNT 

| |STM 

j STMFREQ 

|STM |STMSCLAD | 

1 

1_ 

1 

_l_ 

j j EOT 

i_i 

I 

_l_ 

(FLAGS) | 

_i_i_i 


110 (16) 14(20) j 

j STMPUID STMBRAD j 


STMTABLE 


Name Description 

STMLNNO Statement line number in binary 

STMCOUNT Counter for count keyword 

STMEOT End of table indicator if set to X'FF* 

STMFREQ Number of times this statement has executed 
ST MF LAGS Flags 

Contents Meaning 

STMATFLG This bit is turned on if a breakpoint has been set at this 
statement 

STMCNTFL This bit is turned on if the count is other than one 

STMNONEX This bit is turned on if this is a non*-executable statement 

STMNOTFY This bit is turned on if notify was requested 

STMSCLFL This bit is turned on if there is a subcommand list 

.‘MSCLAD Pointer to the subcommand list 
STMPUID Program unit identifier in EBCDIC 
STMBRAD Branch address 
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DIR - DEBUG UNIT DIRECTORY 


The Debug Program Unit Directory contains the names of the program units in the current 
program and the names of the corresponding symbol or exception symbol table (see 
ICDNAME). This directory is built by ICDBLDTB from information in OEBUGPGM in PRG. 


DIR (Debug Program Unit Directory) 

[(MO) (7(4) 

j DIRCHAIN | DIRNAME 

i-1_ 


7(8) j 

DIREXSYM | 

l_ ■ 


DIR 


Name 

DIRCHAIN 

DIRNAME 

DIREXSYM 


Description 

Pointer to the next entry or 0 

Name of the program unit 

Pointer to the exception symbol table 


ICDNAME - DEBUG SYMBOL TABLE 


The Debug Symbol Table contains information about the scalar and array variables used in 
the current VS BASIC program. This table is built for a main program unit. An exception 
symbol table, with the same format, is built for each user function program unit in the 
program. The symbol tables are built by ICDBLDTB from information in VARCON and ARRYDSC. 


ICDNAME (Debug Symbol Table Entry) 


1 00 (00) 

(NAM | 

|LEN j 

J a f 

02 (0 2) 

NAMNAME 

— 

04(04) 

NAMADDR 

i 

08(08) | 0A (10) 

NAM (NAM j NAM (NAM 
TYPE]MODE NODIM|EOT 

l i j ___l_ 

joC (12) 

1 

| NAMDIMS (1) 

_1_____ 

1 

1 

1 

1 

J 

110(16) 

NAMDIMS(2) 

_i 

— 


ICDNAME 


Name 

NAMLEN 

NAMNAME 

NAMADDR 

NAMTYPE 

NAMMODE 

NAMNODIM 

NAMEOT 

NAMDIMS1 

NAMDIMS2 


Description 

Length of the character variable or array element 
Scalar or array name (left justified) 

Address of the variable or array in the object module 

Type field, zero indicates a scalar and a non-zero indicates an array 

Mode of scalar or array element 

Number of dimensions for an array 

End of table indicator 

Size of dimension 

Size of dimension 
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Table 9. Data Area Cross-reference Index (Part 1 of 6) 
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Table 9. Data Area Cross-reference Index (Part 2 of 6) 



T-- — —— 

J Referred to in Module (s) 

' -- " 1 - ' - --- " 1 ""l 

ARYDSCMX 

ICDJNUC1 , ICDKMAT, 

ICDKORGE 


ARYDSCND 

ICDJNUC1, ICDJVERB, 

ICDKMAT 


ARYDSCOS 

ICDJNUC1, ICDKGET, 

ICDKINPUT, 

ICDKMAT, ICDKMINV, ICDKPRNT, ICDKREAD, | 


ICDKPOT 



ALSADD 

ICDJCMPA, ICDJFDTS, 

ICDJN0C1 


ASLMASK 

ICDJCMPA, ICDJPUTS, 

ICDJNUC1 

~ 1 

ASVCCTL 

ICtoEXEC 



AVEXT 

ICDJNOCL 



AVFOR 

ICDJCMPA, ICOJNOC2 



AVIM 

ICDJDEFR 



AVLIN 

ICDJNUCL 



AWAR 

ICDJCMPA, ICDJNUCL, 

ICDJNJC1, 

ICDJRUNA | 

BASOSER 

ICDxEXEC 



BGEX 

ICDJCMPA, ICDKERR 




BIFTAB 

BLKPAD 

BRP 

BSDAT 

BSEXTPTR 

BSKEY 

BLSINCHN 

BSLINTAB 

BSLINTB 

BSLNPTRS 


BSOBJ 


BSOVFLW 

BSPARMSV 

BSPRG 

BSPRGA 

BSSRC 

BSUFUN 

BSVARCN1 

BSVARCN2 
BOFD IS 

BUFFPTR 

BUFLTH 

BUFPTF 

BOT28 

BOT29 

B16T31 

B20T31 

B29T31 

CALLER 

CNOLINE 

CNVTOUT 

CNVTRET 

CONVENT 

CTLSV1 

CTLSV2 

CURB SR EG 

CORCTL 

CURDAT 

CURDEF 

CURIN 


ICDJERR, ICDJINFO, ICDJRONA, ICDKERR, ICDKETOF, ICDKGSUB f ICDKINPT, 

ICDKINTP, ICDKMAT, ICDKMINV, ICDKORGE, ICDKREAD 

ICDKCNVT, ICDKPLIN, ICDKPRNT 

ICDJFOTS, ICDJNUC1 

ICDJDEFR, ICDJIOVB, ICDKREAD 

ICDJCMPA, ICDJDEFR, ICDJNOCL, ICDKERR 

ICDJDEFR, ICDJIOVB 

ICDJCMPA, ICDJDEFR, ICDJERR, ICDJNOCL, ICDKERR 
ICDJCMPA, ICDJDEFR , ICDJNOCL, ICDJRONA 
ICDJRONA 

ICDJCMPA, ICDJDEFR, ICDJERR, ICDJNOCL, ICDJNOC2, ICDJRONA, ICDJOSFN, 
ICDKERR, ICDKFSCN, ICDKGET, ICDKGSOB, ICDKINPT, ICDKMAT, ICDKMINV, 
ICDKPRNT, ICDKREAD, ICDKPOT 

ICDJCMPA, ICDJDEFR, ICDJNOCL, ICDJNUC1, ICDJNOC2, ICDJNOC3, ICDJNOC5, 
ICDJRONA, ICDJOSFN, ICDKCLOS, ICDKERR, ICDKFSCN, ICDKGET, ICDKGSOB, 
ICDKINPT, ICDKMAT, ICDKMINV, ICDKORGE, ICDJPRNT, ICDKREAD, ICDKPOT 
ICDJCMPA, ICDJDEFR, ICDJNOCL, ICDJRONA, ICDKERR, ICDKMINV 
ICDJCMPA, ICDJDEFR, ICDJOSFN 
ICDJCMPA 


ICDJCMPA, ICDJDEFR, ICDJERR, ICDJIOVB, ICDJNOCL, ICDJNOC1, ICDJNOC2, 
ICDJNOC3, ICDJNOC4, ICDJNOC5, ICDJRONA, ICDJOSFN, ICDJVERB, ICDJMATV 
ICDJCMPA, ICDJDEFR, ICDJNOCL 
ICDJCMPA, ICDJNUC1, ICDJOSFN, ICDKORGE 

ICDJCMPA, ICDJERR, ICDJNCOL, ICDJNOC1, ICDJRONA, ICDJVERB, ICDKERR, 
ICDKGSOB 

ICDJCMPA, ICDJERR, ICDJNOCL, ICDJNOC1, ICDJRONA, ICDJVER 
ICtoEXEC, ICDKCLOS, ICDKERR, ICDKETOF, ICDKGET, ICDKRSET 
ICDKPUT 
ICDKINPT 

ICDKEXEC, ICDJCMPA, ICDJERR, ICDKERR, ICDKTOOT 
ICtoEXEC, ICDJERR, ICDKERR, ICDKTOOT 
ICDJCMPA, ICDJDEFR, ICDJNOCL, ICDJNUC1, ICDJOSFN 
ICDJNOC1 

ICDJCMPA, ICDJERR 
ICDJNOC1, ICDJVERB 
ICDJCMPA 

ICDKETOF, ICDKGET, ICDKGSOB, ICDKINPT 
ICDJDEFR, ICDJNOCL 
ICDKCNVT, ICDKPOT 
ICDKCNVT, ICDKPRNT, ICDKPOT 
ICDJDEFR 
ICDJNOCL 
ICDJNOCL 

ICDJCMPA, ICDJNOCL, ICDJN0C1 

ICDJCMPA, ICDJDEFR, ICDJNOCL, ICDJNOC5, ICDJRUNA 
ICDJDEFR, ICDJIOVB, ICDKREAD 
ICDJDEFR 

ICtoEXEC, ICDKCLOS, ICDKERR, ICDKETOF, ICDKGET, ICDKRSET 


ICDJNOCL, ICDJNOC1, ICDJRONA, ICDJVERB, ICDKERR 
ICDKERR, ICDKETOF, ICDKGET, ICDKRSET, ICDKOPN1, 
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Table 9. Data Area Cross-reference Index (Part 3 of 6) 


1-1 

Symbol 

r-- " ■ .~~.. . . 1 

Refferred to in Module (s) | 

(TURKEY 

ICDJDEFR, ICDJIOVB, ICDKREAD J 

CURLINE 

ICDJCMPA, ICDJDEFR, ICDJERR, ICDJNUCL, ICDJNUC2 | 

DATAKEYS 

ICDJDEFR | 

DATUM 

ICDJNUCL, ICDKETOF | 

DBUGNTRY 

ICDJUS FN, ICDKORGE | 

DBUGTAB 

ICDKORGE | 

DEFFORCT 

ICDJNUC2, ICDJNUC3 , ICDJUSFN j 

DEFNAME 

ICDJNUCL, ICDJUSFN j 

DIGIT 

ICDJNUCL, ICDKCNVT, ICDKETOF | 

DUPKYENT 

ICDJDEFR f 

E 

ICDxEXEC j 

EFILENAM 

ICDKFSCN j 

EFMT 

ICDKCNVT, ICDKPRNT, ICDKPUT | 

ENAMLNGTH 

ICDKFSCN | 

ENDDAT 

ICDJDEFR, ICDKREAD | 

ENDLIN 

ICDJCMPA, ICDJNUCL, ICDJRUNA j 

ENDVAR 

ICDJCMPA, ICDJNUCL, ICCJNUC1 | 

EOFENT 

ICDJDEFR | 

ERABS 

ICDKERR j 

ERSVRET 

ICDKERR | 

ERSVRET2 

ICDKERR | 

EXITDISP 

ICDKERR r ICDKGET, ICDKPUT j 

EXPON 

ICDJNUCL, ICDKETOF j 

EXSW 

ICOJDSUB, ICDKERR, ICDKGET, ICDKINPT, ICDKPRNT, ICDKSStJB, ICDKPUT | 

EXTEND 

ICDJNUCL j 

EXTNUMS 

ICDJDEFR, ICDJNUCL | 

FCNMRK 

ICiaCINTP j 

FFMT 

ICDKRUNA, ICDKPRNT j 

FILENBR 

ICDxEXEC, ICDKFSCN | 

FILEPTR 

ICDJRUNA, ICDKCLOS, ICDKERR, ICDKFSCN j 

FIX255 

ICDJFUTS | 

FLTFXM1 

ICDJNUC1 j 

FLTMIN1 

ICDJFUTS | 

FLTPI180 

ICDJFUTS | 

FLTPLUS1 

ICDJFUTS | 

FLTO 

ICDJFUTS, ICDJMATV | 

FLT1 

ICDJMATV j 

FLT2 

ICDKGSUB | 

FLT3 

ICDKGSUB j 

FLT4 

ICDKGSUB | 

FLT5 

ICDKGSUB | 

FLT9 

ICDKGSUB | 

FLT5S9 

ICDJFUTS | 

FLT9S5 

ICDJFUTS j 

FLT18CPI 

ICDJFUTS | 

FLT32 

ICDJFUTS | 

FLT47 

ICDJFUTS | 

FLT32767 

ICDJNUC1 j 

FMLASVA 

ICDJNUC1 | 

FMTFLG 

ICDKPLIN, ICDKPRNT | 

FORSTACK 

ICDJNUC2, ICDJNUC3, ICDJRUNA | 

FORTMP 

ICDJNUC2, ICDJNUC3 | 

FPTMP 

ICDJRUNA r ICDKERR, ICDKINTP, ICDKORGE | 

FSTDAT 

ICDJDEFR, ICDJNUCL | 

FSTEXT 

ICDJDEFR, ICDJNUCL | 

FSTFRM 

ICDJDEFR, ICDJNUCL j 

GENFLAG 

ICDJCMPA, ICDJDEFR, ICDJERR, ICDJNUCL, ICDJNUC1, ICDJRUNA, ICDJUSFN | 

GOTOTMP 

ICDJNUC4 j 

GOTOTMP2 

ICDJNUC4 | 

H4 

1 ICDJUSFN, ICDKCNVT | 

H8 

ICDJUSFN, ICDKCNVT | 

IDSVRC3 

ICDJNUCL | 

IFRTMPO 

i_i 

| ICDJUNC5 j 

L— . ■■ -- ---1 
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Table 9. Data Area Cross-reference Index (Part 6 of 6) 



i ---- 1 

Referred to in Module(s) 

9 

RE DIM 

ICDJMATV 


RELWORK 

ICDKFUTS, ICDJNUCL, ICDJNUC1, ICDJNUC2, ICDJNUC3, ICDKGSUB 


RESETFLG 

ICDKGET, ICDKRSET, ICDKPUT 


RETSW 

ICDJDEFR, ICDJIOVB, ICDJNUC1, ICDJNUC2, ICDJNUC3, ICDJUSFN, ICDJVERB, 
ICDJMATV 


RETURNER 

TCDJUSFN 


PNDSEED 

ICDKSSUB 


SAVREG 

ICDxEXEC 


SCNCODE 

ICDJNUC1 


SCN1RP3 

{ ICDJNUC1 


SEQCHK 

ICDJNUC1 


SIGN 

ICDKCNVT, ICDKPRNT 


SLFORM 

ICDJCMPA 


SRCCR 

ICDJNUCL 


SRCLIN 

ICDJIOVB, ICDJNUCL 


SRCPTR 

ICDJDEFR, ICDJFUTS, ICDJNUC1 , ICDJNUCL 


SSLFORM 

ICDJCMPA, ICDJNUC1 


STATESW 

ICDJDEFR, ICDJERR, ICDJFUTS, ICDJIOVB, ICDJNUCL, ICDJNUC1, ICDJNUC2, 
ICDJNUC3, ICDJNUC4, ICDJNUC5, ICDJUSFN, ICDJVERB, ICDKERR, ICDJMATV 


STCSV 

ICDJDEFR, ICDJNUCL 


STCTSV2 

ICDKNUCL 


STDCMP 

ICDJDEFR, ICDJERR, ICDJIOVB, ICDJNUC2, ICDJNUC3, ICDJNUC4, ICDJNUC5, 
ICDJUSFN, ICDJVERB, ICDJMATV 


STPRS 

ICDJIOVB 


STRSW 

ICDJERR, ICDJNUC1 


SUBSCR2 

ICDJNUC1 


SVCINST 

ICDxEXEC 


SWITCH 

ICDxEXEC# ICDJNUCL, ICDKETOF 


SWPFLG 

ICDJRUNA 


TMBUF 

ICDxEXEC, ICDJERR, ICDKATTN, ICDKERR, ICDKINPT, ICDKTOUT 


TODTSW 

ICDKERR, ICDKINPT, ICDKPRNT, ICDKTOUT 


UFUNPTR 

ICDJUSFN 


UTTLOC 

ICDxEXEC, ICDJCMPA, ICDJERR, ICDJRUNA, ICDKGSUB, ICDKMINV, ICDKORGE 


VALRP2 

ICDJNUC1 


VALSW 

ICDJNUC1 


VAL4RA1 

ICDJNUC1 


VAROBASE 

ICDJCMPA, ICDJNUCL, ICDJNUC1 


VARCON 

ICDJDEFR, ICDJFUTS, ICDJNUC1, ICDJRUNA, ICEWGSUB, ICDKPRNT, ICDJMATV 


VARPTRS 

ICDJNUC1, ICDJRUNA, ICDJUSFN 


VSBATTN 

ICDxEXEC, ICDJCMPA, ICDKORGE 


VSBID 

VSBLIB 

ICDxEXEC 

ICDxEXEC, ICDKATTN, ICDJRUNA, ICDKCNVT, ICDKDSUB, ICDKERR, ICDKETOF, 
ICDKGSUB, ICDKINTP, ICDKORGE, ICDKREAD, ICDKSSUB, ICDKOPN1, ICDKPUT 


WBG 

ICDJNUCL, ICDJUSFN 


WCATCT1 

ICDJFUTS 


WCATLTHR 

ICDJFUTS 


WCATRESL 

ICDJFUTS 


WCATSAV 

j ICDJNUC1 


WCMP 

ICDJFUTS, ICDJNUC1 


WCOMPT 

ICDJFUTS, ICDJNUC1 


WCUR 

ICDJFUTS, ICDJNUCL, ICDJNUC1, ICDJUSFN 


WEXEC 

ICDJNUC1 


WFLG 

ICDJIOVB, ICDJNDC1, ICDJNUC2, ICDJNUC4, ICDJNUC5, ICDJUSFN, ICDJVERB, 
ICDJMATV 


WFTNLEV 

ICDJNUC1 


WLTH 

ICDJNUC1, ICDJRUNA, ICDJUSFN 


WLTHSAV 

ICDJUSFN 


WSYM 

ICDJNUC1 

t 

WWK 

ICDJFUTS, ICDJNUC1 

J--------- - -—-* 
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EXECUTION REGISTER CONVENTIONS 


Licensed Material - Property of IBM 
DIAGNOSTIC AIDS 


REGISTER CONVENTIONS 


Register 





Number 

Symbolic 

COMPILER 

REGISTER CONVENTIONS 

0 

RRAO 




1 

RVAL1 

Reqister 

Symbolic 

Usaqe 

2 

RRFR 

0 

R0 

Temporary absolute 

3 

RRA3 

1 

RP4 

Address of current 

4 

RRA4 



source character 

5 

RRA5 

2 

RAl 

Absolute work register 

6 

RVAL2 

3 

RA2 

Absolute work register 



4 

RA3 

Absolute work register 

7 

RARR 

6 

RA4 

Absolute work register 



6 

RA5 

Absolute work register 

8 

RRPBS 

7 

RCBS 

Address of ICDJNUCL 



8 

RC1 

Address for compiler 
cover 

9 

RLIN 

9 

RC2 

Address for compiler 

10 

ROBJ 



cover 



10 

RC3 

Address for compiler 

11 

RRA11 



linkage 

12 

RWKSP 

11 

RCBS2 

Address of ICDJNUC1 



12 

RPBS 

Address of base of 
user area 

13 

RRUN 

13 

RP1 

Address for user area 
cover 

14 

RLOC 

14 

RP2 

Address for user area 
cover 

15 

RLINK 

15 

RP3 

Address of current 




object code 


Description 
Free absolute 
Base address of 
VARCON1 

Free relocatable 
Free absolute 
Free absolute 
Free absolute 
Base address of 
VARC0N2 

Base address of array 
storage 

Base address of User 
Area 

Base address of 
LTNPTRS table 
Base address of Object 
Code 

Free absolute 
Base address of 
Current Work Area 
Base address of 
Library 

Address of Current 
Object code 
Address for Linkage 
Return 
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The processor is identified with the 
following names: 


Table 10 lists 
identifiers of 

the error message 
the VS BASIC Processor, 

VSPC Executor 

ICDPxxxx 

Messages produced are in the following 
ranges: 

TSO Executor 

CMS Executor 

ICDQxxxx 

ICDWxxxx 

Executor 

ICD000 - ICD199 

OS Executor 

ICDYxxxx 

Compiler 

ICD200 - ICD299 

DOS Executor 

ICDZxxxx 

Library 

ICD40 0 - ICD4 99 

Compiler 

ICDJxxxx 

Debug 

ICD700 - ICD999 

Library 

ICDKxxxx 

VS AM 

TCD460 - ICD477 AND ICD481 - 
ICD484 

Conversion 

Utility 

TCDLUTIL 

Conversion 

Utility 

ICD601 - ICD662 

Renumbering 

Facility 

ICDQRNMx 

Renumbering 

Facility 

ICD90 0-ICD9 12 

Debug 

ICDxxxxx (other than thos 
listed) 


Table 10. 

Diagnostic 

Messages Directory (Part 1 of 7) 


1 

Message 

i 

j Issued by | 

— 


| | 

Number 

Modules or Entry Points 

| Component | 

I 4 

ICD001 

ICDQEXEC, 

ICDYEXEC, ICDZEXEC 

T 1 

| Executor | 

ICD002 

ICDWEXEC 


| Executor | 

ICD003 

ICDWEXEC 


j Executor j 

ICD006 

ICDWEXEC 


| Executor | 

TCD007 

ICDWEXEC 


j Executor | 

ICD008 

ICDQEXEC, 

ICDYEXEC, ICDZEXEC 

j Executor | 

ICD009 

ICDQEXEC 


j Executor | 

ICD010 

ICDQEXEC 


j Executor | 

ICD011 

ICDQEXEC 


j Executor j 

ICD012 

ICDQEXEC 


| Executor | 

ICD013 

ICDQEXEC 


j Executor J 

ICD014 

ICDZEXEC 


1 1 

ICD015 

ICDQEXEC, 

ICDYEXEC 

j Executor | 

ICD016 

ICDQEXEC 


j Executor | 

ICD017 

ICDQEXEC 


j Executor | 

ICD018 

ICDZEXEC 


1 1 

ICD019 

ICDQEXEC 


j Executor | 

ICD020 

ICDQEXEC 


| Executor | 

ICD022 

ICDQEXEC 


| Executor | 

ICD0 23 

ICDQEXEC 


| Executor | 

ICD0 24 

ICDQEXEC 


j Executor | 

ICD025 

ICDQEXEC 


| Executor | 

ICD0 26 

ICDQEXEC 


j Executor j 

ICD027 

ICDPEXEC, 

ICDQEXEC 

j Executor | 

ICD0 28 

ICDQEXEC 


j Executor | 

ICD029 

ICDQEXEC 


| Executor j 

ICD030 

ICDQEXEC 


| Executor | 

ICD0 31 

ICDQEXEC 


j Executor | 

ICD032 

ICDQEXEC 


j Executor | 

ICD0 33 

ICDQEXEC 


| Executor | 

ICD034 

ICDPEXEC, 

ICDQEXEC, ICDYEXEC, ICDZEXEC 

j Executor j 


i_i-- , . -... — __ —___ -. - — -- .... i_ j 
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Table 10. Diagnostic Messages Directory (Part 2 of 7) 


1.——~~l 

Message 

Issued by 

" -1 

1 



Number 

Modules or Entry Points 

Component j 

■ 

ICD035 

ICDQEXEC 

Executor 

ICD042 

ICDQEXEC, ICDXEXEC 

Executor | 

ICD043 

ICDQEXEC 

Executor | 

ICD044 

ICDQEXEC 

Executor | 

ICD045 

ICDQEXEC 

Executor j 

ICD046 

ICDQEXEC 

Executor j 

ICD047 

ICDQEXEC 

Executor | 

TCD051 

ICDYEXEC 

Executor j 

ICD052 

ICDYEXEC, ICDZEXEC 

Executor j 

ICD053 

ICDYEXEC, ICDZEXEC 

Executor J 

ICD054 

ICDYEXEC, ICDZEXEC 

Executor | 

ICD055 

ICDYEXEC 

Executor | 

ICD056 

ICDYEYEC 


ICD058 

ICDY EXEC* ICDZEXEC 

Executor j 

ICD060 

ICDYEXEC 

Executor | 

ICD062 

ICDYEXEC 

Executor | 

ICD063 

ICDYEXEC, ICDZEXEC 

Executor | 

ICD065 

ICDYEXEC, ICDZEXEC 

Executor | 

ICD066 

ICDYEXEC 

Executor | 

ICD067 

ICDYEXEC, ICDZEXEC 

Executor j 

ICD068 

ICDYEXEC, ICDZEXEC 


ICD069 

ICDZEXEC 


ICD070 

ICDZEXEC 


ICD081- 



ICD09 3 

ICDPEXEC 

Executor | 

ICD099 

ICDQEXEC, ICDYEXEC,,ICDPEXEC 

Executor j 

ICD104 

ICDWEXEC 

Executor j 

ICD109 

ICDWEXEC 

Executor | 

ICD110 

ICDWEXEC 

Executor j 

ICD117 

ICDWEXEC 

Executor » 

ICD146 

ICDWEXEC 

Executor > 

ICD147 

ICDWEXEC 

Executor j 

ICD148 

ICDWEXEC 

Executor j 

ICD152 

ICDWEXEC 

Executor | 

ICD202 

1 ICDJSCAN 

Compiler | 

ICD203 

| ICDJCMPA, ICDJDEFR, ICDJNOCL, ICDJVAL 

Compiler j 

ICD205 

| ICDJFMLA, ICDJFOTS 

Compiler j 

ICD206 

| ICDJNUCL 

Compiler j 

ICD208 

ICDJNUCL 

Compiler j 

ICD210 

| ICDJLET 

Compiler j 

ICD211 

| ICDJIF 

Compiler j 

ICD212 

ICDJNEXT, ICDJRUNA, ICDJOSFN 

Compiler | 

ICD213 

ICDJNEXT 

Compiler | 

ICD214 

ICDJFOR 

Compiler | 

ICD215 

ICDJNEXT 

Compiler | 

ICD216 

ICDJFOR 

Compiler | 

ICD217 

ICDJNUCL 

Compiler | 

ICD221 

ICDJDEFR, ICDJFMLA, ICDJPOR, ICDJGOSB, ICDJGOTO, ICDJIF, 

Compiler j 


ICDJIOVB, ICDJLET, ICDJMATV, ICDJNEXT, ICDJRDIM, ICDJUSFN, 



ICDJCHN, ICDJUSE 


ICD222 

ICDJMATV 

Compiler | 

ICD223 

ICDJNUCL 

Compiler j 

ICD224 

ICDJIF, ICDJIOVB, ICDJMATV, ICDJUSFN, ICDJCHN, ICDJFUTS 

Compiler | 

ICD225 

ICDJFMLA 

Compiler j 

IC0226 

ICDJFMLA 

Compiler | 

ICD227 

ICDJFUTS 

compiler j 

ICD228 

ICDJFMLA, ICDJUSE 

Compiler | 

ICD229 

ICDJNUCL 

Compiler j 

i_i 

> - -' 

i _j 
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Table 10. Diagnostic Messages Directory (Part 3 of 7) 


Message 

Issued by 


■i 

i 

.j 


i 

1 

Number 

Modules or Entry Points 

| Component 

i _ 

1 

i 

ICD230 

ICDJFMLA, ICDJMATV, ICDJFOTS 

| compiler 

T 

1 

ICD231 

ICDJFMLA 

j Compiler j 

ICD232 

ICDJFMLA 

j Compiler | 

ICD2 33 

ICDJFMLA 

| Compi1er | 

ICD234 

ICDJMATV 

j Compiler j 

ICD235 

ICDJAADJ 

j Compiler | 

ICD2 36 

ICDJFMLA 

| Compiler | 

ICD237 

ICDJFMLA, ICDJDIM 

| Compiler | 

ICD2 38 

ICDJMATV 

| Compiler 

ICD239 

ICDJMATV 

j compiler 

I 

ICD240 

ICDJFMLA 

| compiler | 

ICD241 

ICDJFMLA 

j Compiler | 

ICD242 

ICDJFMLA 

j Compiler | 

ICD243 

ICDJFMLA 

Compiler j 

ICD244 

ICDJUSFN, ICDJFMLA, ICDJFUTS, ICDJCHN 

Compiler | 

ICD245 

ICDJFMLA 

compiler | 

ICD246 

ICDJFMLA 

Compiler j 

ICD248 

ICDJMATV 

Compiler | 

ICD250 

ICDJGOSB, ICDJGOTO, ICDJIOVB, ICDJNUCL 

Compiler | 

ICD251 

ICDJNEXT, ICDJFOR, ICDJNUCL, ICDJUSFN, ICDJDIM, ICDJUSE 

Compiler j 

ICD256 

ICDJNUCL, ICDJDIM, ICDJUSE 

Compiler j 

ICD257 

ICDJUSFN 

Compiler | 

ICD258 

ICDJUSFN 

Compiler | 

ICD259 

ICDJUSFN 

Compiler j 

ICD260 

ICDJUSFN 

Compiler | 

ICD261 

ICDJUSFN 

Compiler | 

ICD262 

ICDJUSFN 

Compiler | 

ICD263 

ICDJMATV 

Compiler j 

TCD264 

ICDJNUCL 

Compiler j 

ICD265 

ICDJIF 

Compiler 

ICD266 

ICDJIF 

1 Compiler 

1 

ICD267 

ICDJDEFR 

Compiler | 

ICD268 

ICDJNUCL 

Compiler | 

ICD269 

ICDJDEFR, ICDJNUCL 

Compiler j 

ICD270 

ICDJDEFR 

Compiler j 

ICD271 

ICDJDEFR 

Compiler j 

ICD272 

ICDJDEFR 

Compiler j 

ICD273 

ICDJUSFN 

Compiler 


ICD274 

ICDJDEFR 

Compiler | 

ICD275 

ICDJDEFR 

Compiler j 

ICD277 

ICDJ IOVB 

Compiler | 

ICD278 

ICDJLET 

Compiler | 

ICD401 

ICDKON 

Library j 

ICD402 

Object Code 



ICD404 

Object Code 



ICD405 

Object Code 



ICD409 

Object Code 



ICD410 

Object Code 



ICD411 

ICDPEXEC, ICDQEXEC, ICDWEXEC 

Executor 


ICD412 

ICDKINTP 

Library 


ICD413 

ICDKINTP 

Library 


ICD414 

ICDKINTP 

Library 


ICD415 

ICDKINTP 

Library 


ICD416 

ICDKERR 

Library 


ICD417 

ICDKERR 

Library 


ICD418 

ICDKREAD 

Library 


ICD419 

ICDKREAD 

Library 


ICD420 

ICDKOPN1, ICDPPENT 

Library, 




Executor 


ICD422 

ICDKOPN1, ICDPPENT 

Library, 




Executor 


TCD424 

ICDKCLOS, ICKDETOF, ICDKGET, ICDKOPN1, ICDKPUT, ICDKRSET 

Library 


_i 

ICDPVENT, ICDPPENT, ICDPCLS, ICDQVERR, ICDZVERR 

>_ - - —- - - - -- * 

Executor 

i 
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Table 10. Diagnostic Messages Directory (Part <1 of 7) 


1 - —1 

---—---- 1 

Issued by | 

L. _ _■ 


--——-—-V 

1 

Number 

Modules or Entry Points 

1 

Component j 

ICD425 

ICDKCLOS, ICSKRSET, ICDPPENT 

Library j 

ICD426 

ICDKOPEN, ICDKPUT, ICDKRSET, ICDKTIO 

Library, j 



Executor j 

ICD427 

ICDKETOF, ICDKGET, ICDPVENT, ICDPPENT 

Library, j 


ICDQVERR, ICDZVERR 

Executor | 

ICD428 

ICDKGET, ICDKPUT 

Library | 

ICD429 

ICDKGET, ICDKTIO 

Library j 

ICD430 

ICDKPUT, ICDKTIO 

Library j 

ICD431 

ICDKGET 

Library | 

ICD432 

ICDKGET 

Library j 

ICD4 33 

ICDKPRNT 

Library | 

ICD4 34 

ICDKPRNT 

Library j 

ICD4 35 

ICDKPRNT 

Library | 

ICD4 36 

ICDKPRNT 

Library | 

ICC437 

ICDKPRNT 

Library j 

ICD438 

ICDKPRNT 

Library | 

ICD439 

ICDKPRNT 

Library | 

ICD440 

ICDKINPT 

Library j 

ICD441 

ICDKMAT, ICDKDAT, ICDKIDX, ICDKJDY, ICDKLEN, ICDKNUM, ICDKRND, 

Library | 


ICDKSTR 

1 

ICD442 

ICDKRND, ICDKLEN, ICDKJDY, ICDKNUM, ICDKDAT, ICDKDMAX, ICDKDMIN, 

Library i 


ICDKSTR, IQDKIDX 


ICD443 

ICDKDCSC, ICDKDASN, ICDKDACS, ICDKDTAN, ICDKDCOT, ICDKDSEC, 

Library | 


ICDKDEXP, ICDKDSIN, ICDKDCOS, ICDKDHSN, ICDKDNCS 

| 

ICD444 

ICDKDSQR 

Library | 

ICD445 

ICDKDLOG, ICDKDLTW, ICDKLGT 

Library | 

ICD446 

ICDKDTAN, ICDKDCOT, ICDKDCSC, ICDKDSEC 

Library j 

ICD447 

ICDKDPWR 

Library j 

ICD450 

ICDKMAT 

Library j 

ICD451 

ICDKMAT 

Library j 

ICD452 

ICDKMAT, ICDKMINV 

Library | 

ICD454 

ICDKMAT, ICDKMINV 

| Library j 

ICD455 

ICDKMINV 

1 Library j 

ICD460 

ICDKVIOR, ICDKTIO 

| Library j 

ICD461 

ICDKVIOR 

| Library | 

ICD462 

ICDQVOPN, ICDZVOPN, ICDPOPN 

| Executor j 

ICD463 

ICDKVIOR 

j Library | 

ICD464 

ICDKVIOR 

| Library j 

ICD465 

ICDKVIOR 

Library | 

ICD466 

ICDKVIOR, ICDKTIO 

Library j 

| ICD467 

ICDKVIOR 

Library 

| ICD46B 

ICDKVIOR 

Library 

| ICD469 

ICDKVIOR, ICDKTOUT, TCDKINPT 

Library | 

| ICD470 

ICDKVIOR 

Library j 

j ICD471 

ICDKVIOR 

Library | 

1 ICD472 

ICDKTIO 

Library | 

ICD473 

ICDKVIOR 

Library } 

ICD474 

ICDKVIOR 

Library | 

ICD475 

ICDKVIOR 

Library j 

ICD476 

ICDKVIOR 

Library | 

IC.D477 

ICDKVIOR 

Library | 

ICD478 

ICDKRLN, ICDKKPS, ICDKKLN 

Library j 

ICD479 

ICDKKPS, ICDKKLN, ICDKRLN 

Library j 

ICD480 

ICDKKLN, ICDKKPS 

Library j 

ICD481 

ICDQVCLS, ICDZVCLS, ICDPCLS 

Executor j 

ICD482 

ICDQVERR, ICDPVENT, ICDZVERR 

Executor j 

ICD483 

ICDQVERR, ICDPVENT, ICDZVERR 

Executor j 

ICD484 

ICDQVERR, ICDPVENT, ICDZVERR 

Executor j 

ICD485 

ICDKCLOS, ICDKGET, ICDKPUT, ICDKRSET 

Library j 

ICD486 

ICDKOPN1 

Library | 
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Table 10. Diagnostic Messages Directory (Part 5 of 7) 


Message 

Number 

— 

Issued by 

Modules or Entry Points 

ICD480 

ICDKFSCN 

ICD490 

ICDKMAT 

ICD491 

ICDKORGE 

ICD492 

ICDPPENT 

ICD493 

IC DP PENT 

ICD494 

ICDKIOVB, 


ICDPOPN 

ICD495 

ICDKIOVB, 


ICDPOPN 

ICD496 

ICDKIOVB, ICDPOPN 

ICD497 

ICDKIOVB, ICDPOPN 

ICD498 

ICDKIOVB, ICDPOPN 

ICD499 

ICDKIOVB, ICDPOPN, ICDPPENT 

ICD500 

ICDKIOVB, ICDPOPN 

ICD501 

ICDKIOVB, ICDPOPN 

ICD502 

ICDPPENT, ICDKVIOR 

ICD503 

ICDKMINV 

ICD504 

ICDKIOVB 

ICD505 

ICDPPENT 

ICD506 

ICDPPENT 

ICD507 

ICDPOPN 

ICD508 

ICDPOPN 

ICD509 

ICDPOPN, ICDPCLS, ICDPVENT 

ICD510 

ICDKIOVB, ICDPPENT 

ICD511 

ICDPPENT 

ICD512 

ICDPOPN 

ICD513 

ICDKUNDF 

ICD514 

ICDKUNDF 

ICD515 

ICDKINPT 

ICD516 

ICDKINPT 

ICD517 

ICDPPENT, ICDKVIOR 

ICD518 

ICDPPENT, ICDKVIOR 

ICD519 

ICDPPENT, ICDKVIOR 

ICD520 

ICDPPENT, ICDKVIOR 

ICD601 

ICDLUTIL 

ICD602 

ICDLUTIL 

ICD607 

ICDLOTIL 

ICD610 

ICDLUTIL 

ICD662 

ICDLUTIL 

ICD700 

ICDMSSG 

ICD701 

ICDMSSG 

ICD702 

ICDLISTO 

ICD707 

ICDLISTO 

ICD709 

ICDCHAIN 

ICD710 

ICDADRES 

ICD711 

ICDADRES 

ICD721 

ICDONITR 

ICD722 

ICDONITR 

ICD723 

ICDONITR 

ICD725 

___ i 

ICDONITR 

L- ■ __ 


t- 

| Component | 


| Library 
| Library 
| Library 
j Executor 
j Executor 
Library, 
Executor 
Library. 
Executor 
Library, 
Executor 
Library, 
Executor 
Library, 
Executor 
Library, 
Executor 
Library. 
Executor 
Library, 
Executor 
Library, 
Executor 
Library 
Library 
Executor 
Executor 
Executor 
Executor 
Executor 
Library, 
Executor 
Executor 
Executor 
Library 
Library 
Library 
Library 
Executor, 
Library 
Executor, | 
Library 
Executor, 
Library j 
Executor, i 
Library 
Utility j 
Utility | 
Utility | 
Utility | 
Utility j 
| Debug | 

j Debug | 

j Debug | 

| Debug | 

| Debug | 

| Debug j 

| Debug | 

j Debuq | 

j Debug j 

j Debug | 

j Debug j 
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Table 10. Diagnostic Messages Directory (Part 6 of 7) 


«- 1 ------— -----—» 


Message 

Issued by | 

L _a 

-1 

— 

Number 

Modules or Entry Points 

Component 

TCD726 

ICDONITR 

Debug 

ICD727 

ICDONITR 

Debug 

ICD728 

ICDSCAN 

Debug 

ICD730 

ICDATTN, ICDSCAN 

Debug , 

ICD731 

ICDATTN, ICDSCAN 

Debug 

ICD732 

ICDLSSCN 

Debug 

ICD733 

ICDLSSCN 

Debug 

ICD7 3ft 

ICDLSSCN 

Debug 

TCD735 

ICDIDCHK 

Debug 

ICD736 

ICDIDCHK 

Debug 

ICD737 

ICDPGMCK 

Debug 

ICD7 38 

ICDWNSCN 

Debug . 

ICD739 

ICDCDSCN 

Debug 

ICD740 

ICDISCAN 

Debug 

ICD741 

ICDI SCAN 

Debug 

ICD742 

ICDTSCN 

Debug 

ICD743 

ICDTSCN 

Debug 

ICD744 

ICDAIWES 

Debug 

TCD745 

ICDVSCN 

Debug 

• ICD746 

ICDVSCN 

Debug 

ICD747 

ICDTSCN 

Debug 

ICD740 • 

ICDTSCN 

Debug 

TCD749 

ICDSSCN 

Debug 

IGD750 

ICDSSCN 

Debug 

ICD751 

ICDSSCN 

Debug - 

; TCD752 

ICDSTSCN 

Debug , 

. ICD753 

ICDSTSCN 

Debug 

ICD754 

ICDSTSCN 

Debug , 

ICD755 

ICDLSSCN 

Debug 

ICD756 

ICDLSSCN 

Debug 

ICD757 

ICDLSSCN 

Debug 

ICD758 

ICDVSCN 

Debug 

ICD759 

ICDCDSCN 

Debug 

ICD76C 

ICDCDSCN 

Debug 

ICD761 

ICDCDSCN 

Debug 

ICD762 

ICDCDSCN 

Debug 

ICD763 

ICDCDSCN 

Debug* 

ICD764 

ICDWNSCN 

Debug 

ICD765 

ICDWNSCN 

Debug 

ICD766 

ICDWNSCN 

Debug 

ICD768 

ICDWNSCN 

Debug 

ICD769 

ICDWNSCN 

Debug 

ICD770 

ICDWNSCN 

Debug 

ICD771 

ICDSTSCN 

Debug 

ICD772 

ICDSTSCN 

Debug 

ICD773 

ICDTSCN 

Debug 

ICD775 

I CDS SC AN 

Debug 

ICD780 

ICDLSSCN, ICDPRSCN 

Debug. 

ICD795 

ICDSTSCN 

Debug 

ICD800 

ICDGOGO 

Debug 

ICD802 

ICDGOGO 

Debug 

ICD802 

ICDGOGO 

Debug 

ICD803 

ICDONITR 

Debug 

ICD870 

ICDWNTST 

Debug 

ICD871 

ICDWNTST 

Debug 

ICD875 

ICDWHENO 

Debug 

ICD876 

ICDWHENO 

Debug 

ICD880 

ICDOFFWO 

Debug 

ICD881 

ICDOFFWO 

Debug 

ICD900 

ICDQRNMS 

RENUM 


I __l___——I --rr-- — 1 
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Table 10. Diagnostic Messages Directory (Part 7 of 7) 


Message 

Number 

— 

Issued by 


_j 

Modules or Entry Points 

J Component 

i 

n 

j 

ICD901 

ICDQRNMS 

j RENUM 

"i 

ICD902 

ICDQRNMS 

j RENUM 


ICD903 

ICDQRNMS 

| RENUM 


ICD904 

ICDQRNMS 

j RENUM 


ICD905 

ICDQRNMS 

| RENUM 


ICD906 

ICDQRNMS 

j RENUM 


ICD907 

ICDQRNMS 

j RENUM 


ICD908 

ICDQRNMS 

j RENUM 


ICD909 

ICDQRNMS 

| RENUM 


ICD910 

ICDQRNMS 

j RENUM 


ICD911 

ICDQRNMS 

j RENUM 


ICD912 

ICDQRNMS 

j RENUM 


ICD920 

ICDSETO 

| Debug 


ICD940 

ICDLFQO 

j Debuq 


ICD941 

ICDLFQO 

| Debug 


ICD942 

ICDLFQO 

| Debug 


ICD943 

ICDLBKO, ICDLFQO, ICDLISTO 

j Debug 


ICD945 

ICDLFQO 

j Debug 


ICD947 

ICDLFQO 

| Debug 


ICD950 

ICDLBKO 

| Debug 


ICD952 

ICDLBKO 

j Debug 


ICD953 

ICDLBKO 

j Debug 


ICD955 

ICDLBKO 

| Debug 


ICD957 

ICDLBKO 

| Debug 


ICD990 

ICDWHRO 

| Debug 


ICD991 

ICDT BACK 

| Debug 


ICD992 

ICDTBACK 

| Debug 


ICD995 

ICDWHRO 

| Debug 


ICD996 

ICDFLOW 

j Debug 


ICD997 

ICDFLOW 

| Debug 


1 MM 1 

u----- ---- ---- ., — , 

_i—_ 

.j 
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SYSTEM COMPLETION CODES FOR VS BASIC 


Table 11. VS BASIC Processor DOS/VS System Abnormal Termination Codes (Part 1 of 2) 


1- 

| Hexadecimal 
| Representation 

>. ........- 1 1 

1 

Specific Abnormal Termination Code Meaning | 

. . _ . . ...... 1 

1 OC 

-1 

Run time program check | 

. . . ■ 

i io 

i 

Normal EOJ j 

. .. . _ . .. _ _ ... 1 

i ii 

..... 1 

No channel program translation for unsupported device I 

8 

1 12 

- 1 

Insufficient buffer space for channel program translation | 

- . ... i 


1 

CCW with count greater than 32K | 

i 

i i« 

i___ 

l 

Page pool too small | 

_ _a 

» —i -1 

| 15 | Page fault in disabled program (not a supervisor routine) j 

i_i_ “_i 

i i6 

1_ 

- i 

Page fault in MICR stacker or page fault appendage routine | 

1 I? 

l 

Main task issued a CANCEL macro with subtask still attached | 

- — .. ... 1 

i i0 

I 

Main task issued a DUMP macro with subtask still attached j 

! 19 

Operator replied cancel as the result of an I/O error message j 

1A 

An I/O error has occurred (see interrupt status information) j 

IB 

Channel failure j 

1C 

CANCEL ALL macro issued in another task 1 

ID 

Main task terminated with subtask still attached J 

IE 

A DEQ macro was issued for a resource but tasks previously requesting! 
a resource cannot be found because their save areas (containing j 
register 0) were modified j 

IF 

CPU failure j 

20 

A program check occurred j 

21 

An invalid SVC was issued by the problem program or macro J 

22 

Phase not fqund in the core image library j 

23 

CANCEL macro issued | 

1 - i 

24 

1 1 

| Canceled due to an operator request | 

25 

f 1 

I Invalid virtual storage address given (outside partition) | 

26 

f 1 

SYSxxx not assigned (unassigned LUB code) | 

27 

f 1 

Undefined logical unit | 

f . . ... ... i 

28 

■ ■ 

| QTAM cancel in progress | 

i ■ « 
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• VS BASIC Processor DDS/VS System Abnormal Termination Codes (Part 2 of 2) 


j Hexadecimal | 

| Representation j specific Abnormal Termination Code Meaning 



j I/O error during fetch from private core image library 

i 


J Page fault appendage routine passed illegal parameter to supervisor I 


j Program cannot be executed/restarted due to a failing storage block | 


I Invalid resource request (possible deadlock) 


| More than 255 PFIX requests for one page 


Read past a /& statement 


I/O error queue overflow during system error recovery procedure 


i 

| Invalid DASD address 

I 


I 

| No long seek on a DASD 

H-- 1 

I Job control open failure 


I 

| Page fault in I/O appendage routine 

_i- 

| Wrong privately translated CCW 

i 


i 

| Reserved 

i 


| Invalid parameter list item for I/O runtime (in module ICDKIOVB) 

H- 

| Invalid parameter list item for run-time READ (in module ICDKREAD) 

i 


■ 

| Unrecognized cancel code 


Table 12. VS BASIC Processor OS/VS System Abnormal Termination Codes 

i . ~~ 1 1------—i 


Decimal 

Representation 

i 

Specific Abnormal Termination Code Meaning | 

_ _ j 

012 

Run-time program check | 

1 

156 

1 

Invalid parameter list item for run-time 1-0 (in module (ICDKIOVB) 

158 

Invalid parameter list item for run-time READ (in module ICDKREAD) 

333 

Object code and library incompatibile 


Diagnostic Aids 149 


























Licensed Material - Property of IBM 
DIAGNOSTIC PROCEDURES 

In most cases, the processor produced 
diagnostic messages will direct you to the 
cause of the error. The message number 
indicates the component and module that 
detected the error. Refer to Table 10 in 
this section of the book for a list of the 
message numbers and the component and 
module that detected the error. 

In some cases, particularly system 
errors and failures in the object code, the 
cause of the error is not readily apparent. 
In these cases, you should, at the very 
least, rerun the program to obtain a dump 
of storage, if one was not already 
produced. The dump is a useful source of 
information in your effort to isolate 
failures. If you have an interactive 
system available, (for example, TSO, VSPC, 
or CMS,) you can use their built-in 
diagnostic facilities to further aid your 
search. 


Under VSPC 


When severe VSPC and/or vs BASIC errors 
occur, VSPC writes mes >ages ASU669 and 
ASU670 to the VSPC offline and online log 
as URGENT messages. If the SYSDUMP data 
set is available, the workspace is dumped 
and the dump identifier is printed in 
message ASU670. The format of the messages 
is as follows: 

ASD669I time usernum PROCESSOR ERROR 
(BASIC)LBASIC) wsname 

ASU670 ICDxxx (VS BASIC message text) 

ASO670 (ICD085 DUMP ID:083} 

(ICD086 NO DUMP} 


Under DOS/VS 


You may obtain a printed listing of a 
storage dump by rerunning the program and 
specifying the DUMP option on the OPTION 
control card. 


OBTAINING A DUMP ERROR DIAGNOSIS USING A DUMP 


Under OS/VS Includinc 


You may obtain a printed listing of a 
storage dump by rerunning the program and 
including a SYSUDUMP or SYSABEND DD 
statement in the JCL entered through the 
card reader. Under TSO, your logon 
procedure must allocate this data set or 
you may enter it dynamically prior to 
execution of the program. 


Under CMS 


You may obtain a printed listing of a 
storage dump by rerunning the program and 
then issuing a DEBUG command followed by a 
DUMP command. 


1 Locate registers 8 and 12. 

2 Add the hexadecimal value 240 to the 
contents of each register. The 
resulting value in one of these 
registers will point to the beginning 
of the communication Region (PRG) 
indicated by the character string: 

VSBRECOG 

If register 8 points to the beginning 
of this character string, the program 
was in execution; if register 12 points 
there, the program was in compilation. 
(For CMS, if register 10 points there, 
the program was in the Executor code). 

3 Locate the statement at which the 
program failed. If it failed during 
execution go step 7 and continue. 

4 Locate register 1 (RP1) and 15 (RP3). 
During compilation register 1 usually 
points to the statement that is 
currently being processed and register 
15 points to the corresponding object 
code that is generated. If these 
registers locate the source statement 
and its object code correctly, go to 
step 6 and continue. If they do not 
locate the correct statements continue 
with step 5 . 
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5 Examine the contents of the remaining 
registers with the exception of 
registers 7, 11, and 12 whose contents 
are fixed. By referring to the 
compiler map that was produced when the 
VS BASIC processor was installed, 
determine if any of the compile-time 
registers point to a statement 
processing routine. If so, that 
routine was processing at the time of 
the error. This will indicate the type 
of statement involved. 

6 Compare the object code generated with 
the pseudo-assembler code skeletons 
shown in Appendix A. At this point, 
you must determine the nature of the 
problem, design a method for coding 
around it, and obtain information for 
submitting an APAR. (See the 
information on APARs in this section.) 
This completes the error diagnosis that 
is possible for compilations. 

7 Examine the contents of register 14 
(RP14) . During execution, register 14 
usually points to the instruction that 
was executing when the failure 
occurred. There are two possibilities. 
The instruction is in the object code 
of your program or in the code of a vs 
BASIC run-time library routine that was 
called by your program. To determine 
which is the case, compare the contents 
of register 14 with the contents of 
BSOBJ in PRG. If the value in register 
14 is higher than the value in BSOBJ, 
the failure occurred in a program 
statement. If the value is lower the 
failure occurred in a library routine. 
For failures in a library routine, 
continue with step 8; for failures in a 
program statement, go to step 9 and 
continue. 

8 Locate the library routine that was 
executing at the time of the failure. 
Refer to the library map that was 
produced when the VS BASIC Processor 
was installed. Compare the contents of 
register 14 with the starting addresses 
of the library routines shown in the 
map. The library routine that contains 
the address in register 14 was 
executing at the time of the failure. 

At this point you must determine the 
nature of the problem in the library 
routine, design a method for coding 
around it, and obtain information for 
submitting an APAR. (Refer to the 
information on APARs in this section.) 
This completes the error diagnosis that 
is possible for a library routine 
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displacement of A80 hex from the 
beginning of PRG. This is the offset 
of the instruction that failed. To 
determine which statement contains this 
instruction, use the line pointers 
table (LINPTRS). This table lists the 
offset of the beginning of each 
statement in the program together with 
the line number of the statement. 
Compare the instruction offset with the 
offsets listed in the line pointers 
table. The statement that contains the 
offset was executing at the time of the 
failure. At this point yon must, 
determine the nature of the problem in 
the statement, design a method for 
coding around it, and obtain 
information for submitting an APAR. 

This completes the error diagnosis that 
is possible for a program statement 
during execution. 


INFORMATION NEEDED FOR APARS 


Refer to the publication Field Engineering 
Programming System Language and Sort 
Processors Abstract Guide . It contains the 
information required for a PASS search 
argument and APAR abstract. The following 
information is required for submitting an 
APAR. 

1 Component ID and Release level 

5847-xxl. The items are printed at the 
top of the first page of the VS BASIC 
listing. 

I 2 Operating System . The VSBSID field 

(K'H8 9 ) of the PRG communication area 
will contain one of these codes: 

Code System 

3 CMS/CMSBATCH 

2 TSO 

4 OS/VS1 or OS/VS2 

5 DOS/VS 

6 VSPC 

3 Type of Failure . Take standard action 
for WAIT and LOOP. Message number 
ICDxxx can be used to determine which 
module generated the error. (See table 
10.) PROGCHK causes error message 
ICD063 or 110 with a code of 160 (if 
compiler) or code of 12 (if run time). 

4 Time of Failure . Examine message 
number (ICDxxx). 


during execution. 

Locate the failing statement. Subtract 
the value in B§OBJ from the value in 
register 14. BSOBJ is located at a 


value of xxx 

000-199 

200-399 

400-599 

800-999 


Component 

Executor 

Compiler 

Run-time library 
Debug 
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5 For Compile Time Only . Register 8, 9, 
or 10 will contain the base address for 
compiler module (ICDJxxxx) . Compare 
against compiler map to find module in 
control. Location SEQCHK (X*780') 
contains statement number in binary of 
source statement being processed. (Jse 
a source listing to get statement type , 
for example IF, GOTO, LET. 

6 Register 3, 4, 5, or 11 contains the 
base address of the library module in 
control. Compare against library map 
to find the module (ICDKxxxx). 

Register 14 points to the generated 
code for the statement being processed. 
Register 10 contains the base of 
generated code. The difference of 
these two values is the displacement 
into the generated code, use LINPTRS 
table to find the displacement and the 
corresponding LINCHN table entry for 
the line number. 


EXAMINING STORAGE DIRECTLY UNDER CMS 


1 Locate the address of the entry point 
ICDWOBJS. Refer to the compiler map 
that was produced when the VS BASIC 
processor was installed. 

2 Set a breakpoint in the program at the 
address of ICDWOBJS. Use the 
facilities of CMS DEBUG to set the 
breakpoint. 

3 Rerun the program. If the breakpoint 
is not taken before the program fails, 
the error occurs during compilation. 

If the breakpoint is taken prior to 
failure, the error occurs during 
execution. If the program fails during 
compilation, continue with step 4 . 

If the program fails during execution, 
go to step 8 and continue. 

4 Display the contents of registers 1 
(RP4) and 15 (RP3) . During 
compilation, register 1 usually points 
to the statement that is currently 
being processed and register 15 points 
to the corresponding object code that 
is generated. 

5 Using these registers, type out the 
code that they point to. If they 
locate the source statement and object 
code, go to step 7 and continue. If 
they do not, continue with step 6 . 

6 Attempt to isolate the failing 
statement by eliminating statements 


from the program, until the only 
remaining statement is the one in 
error. You can use a binary search 
method. Eliminate half of the 
statements and rerun the program. It 
the error still occurs, eliminate halt 
of the remainder. Continue eliminating 
half the statements from the group that 
continues to fail until you have 
isolated the one you want. Care must 
be taken not to introduce new errors 
when statements are eliminated. 

7 At this point, you must determine the 
nature of the problem and design a 
method for coding around the problem 
and obtain information for submitting 
an APAR. (Refer to the preceding 
information on APARs.) This completes 
the error diagnosis that is possible 
for compilations. 

8 Display the contents of register 8. 

This points to the beginning of the 
Communications Region (PRG). 

9 Display the contents of BSOBJ in PRG. 

It is located at a displacement of A80 
hex from the beginning of PRG. This 
area contains the base address of the 
object code area (OBJAREA). 

10 Display the contents of BSLINPTRS in 
PRG. It is located at a displacement 
of AA8 hex from the beginning of PRG. 
This is the base address of the line 
pointers table (LINPTRS). 

| 11 Type out the LINPTRS table and obtain 
the offset of the beginning of the 
generated code for each statement. The 
table lists the line number of each 
statement followed by the displacement 
of its object code from the beginning 
of OBJAREA. 

12 Set breakpoints at the statements in 
question using the address of the 
beginning of OBJAREA plus the 
displacements of the individual 
statements obtained from LINPTRS. 

13 Trace the execution of the suspected 
statements, when the breakpoint is 
taken. 

14 If you suspect that the library routine 
that executes a particular statement 
may be producing the error and not the 
object code, consult the library map. 
Locate the run-time routine to be 
examined and set a breakpoint at its 
starting address. You can now trace 
the execution of the library routine. 
This completes the error diagnosis 
possible during execution. 
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APPENDIX A! OBJECT CODE PRODUCED BY THE VS BASIC PROCESSOR 

Note: Any statement marked with a double ** in Appendix A indicates the 
itindard statement header, which in this case is: 

BALR RLOC, RRPBS 

If the TEST option is used under VM/CMS or TSO, the statement header is: 

L RLINK, DBUGNTRY +4-PRG (RRPBS) 

BALR RLOC, RLINK 


CHAIN STATEMENT 


i-1 

| CHAIN 'AAA' | 

i_i 


** 

BALR 

RLOC, RRPBS 

statement header 


L 

RRA3, 4 (RRtIN) 

get address of chain routine 


BALR 

RLOC,RRA3 

branch to it 


DC 

F'l' 

number of arguments 


DC 

X *090310E7• 

chain program name 


1 1 
| CHAIN BS, *SSS SSS* j 


** 

BALR 

RLOC, RRPBS 

statement header 


L 

RRA3,4(RRUN) 

get address of library chain routine 


BALR 

RLOC,RRA3 

branch to it 


DC 

F *2 * 

number of arguments 


DC 

X'091210F3* 

chain program name 


DC 

X*090710EB* 

chain argument 


CLOSE STATEMENT 


| j CLOSE A$, EXIT 100 j 

■ ■ 


| ** 


BALR RLOC, RRPBS 


L RRA5, = A (ICDKCLOS) 

BALR RLOC,RRA5 

DC X *09121106' 

DC X'00000010' 

DC X'00007FFF' 


statement header 

code to evaluate subscript (BS(3)) 

code to evaluate concatenation (* A * || • B •) 

get library routine address 
branch to library 
code for AS 
code for EXIT 
no USING clause 
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t — — — — 

| | CLOSE FILE A$, IOERR200 

> - - 


** BALR 

RLOC, RRPPS 

statement header 

L 

RRA11, A (ICDKVCLS) 

load run-time address 

BALR 

RLOC,RRAl1 

and branch 

DC 

X'091210EC' 

file A$ 

DC 

X'0000001 4' 

code for IOERR 

DC 

DATA STATEMENT 

X'00007FFF' 

no USING clause 


i-1 

| DATA 1, A, 2*3, 4*B | 

i-1 


DC 

X'00000000’ 

word for current count 

DC 

X 1 00001123' 

i 



DC 

X'00001126' 

A 



DC 

X' 02000002' 

2 

(repetition 

factor) 

DC 

X' 00001129' 

3 



DC 

X'02000004' 

4 

(repetition 

factor) 

DC 

X'0100112C' 

B 




DEF STATEMENT 


t ‘ -- - - - 1 

| DEF FNA(B # C) = B+C 
I oz 

| DEF FNB(D,E) 

| RETURN D+E 

| FNEND 

i _ i 


** Code to Branch Around User From Expansion 


BALR 

RLOC, 0 

Establish using register 

L 

RRA4,8(RLOC) 

Get size of DEF expansion 

B 

0 (RRA4,ROBJ) 

Branch around it 

DC 

X'00000158* 

Size of code 

to Save Floating Point Regs 


L 

RLIN BSWKTMP 

Get address of work area start 

L 

RRFR,BSUFUN 

Develop address of work 

A 

RLIN,4(RRFR) 

area for this user function 

STE 

FR2,0 (RLIN) 

Save floating register 2 

STE 

FR4 ,4 (RLIN) 

Save floating register 4 

STE 

FR6,8 (RLIN) 

Save floating register 6 

MVC 

C(ONUNITS*4,RLIN),ONCELLS 

Save ON units 

MV I 

ONCELLS,0 

Reset ON units 

MVC 

ONCELLS+1((ONUNITS+4)-1), 
ONCELLS 

To 'SYSTEM default' 


** Code to Move an Arithmetic Argument to its Corresponding Dummy Location 



BALR 

RLOC,0 

Establish using register 


LH 

RRA4, 2(RLINK) 

Get the argument address (BDDD) 


CLI 

0 (RLINK) , X* 01 • 

Is it a simple arithmetic variable 


BE 

A1 

If so, branch 


CLI 

0 (RLINK) ,X'04 • 

Is it an arithmetic array element 


BNE 

ARGERR 

If not, object time error 


STH 

RRA4,A2+2 

Set up following instruction 

A2 

L 

RRA4,0 

Load array element displacement (DDDDD) 


LE 

FRO ,0 (RRA4 , RARR) 

Load the argument value 


B 

A3 

Branch to process 

**See 

Note at 

the beginning of Appendix A. 
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A1 

STH 

RRA4,A4+2 


Set up following instruction 

A4 

LE 

FR0,0 


Load the argument value 

A3 

STE 

FRO ,E8 (RVAL1) 


Store it into dummy location 


LA 

RLINK,4(RLINK) 


Bump to next argument 


BALR 

RLOC,0 




LH 

RRA4, 2 (RLINK) 




CLI 

0 (RLINK) ,X'01 • 




BE 

24(RLOC) 




CLI 

0 (RLINK) ,X'04• 




BNE 

4 0(RLOC) 




STH 

RRA4, 1A (RLOC) 




L 

RRA4,0 - 


Repeat of previous code (to move next 


LE 

FRO,0 (RRA4,RARR) 


arithmetic argument to its corresponding 


B 

2C(RLOC) 


dummy location) 


LE 

FR0,0 (RRA4,RARR) 




B 

2 C (RLOC) 




STH 

RRA4 ,‘2A (RLOC) 




LE 

FR0,0 




STE 

FRO,EC(RVAL) 




LA 

RLINK,4(RLINK) 



Code 

to Save Registers RLINK and 

RWKSTK 

in the Return Stack 


L 

RRA4,PSLTH 


Get current displacement in return stack 


LA 

RRA5, 8(RRA4) 


Advance to next location in return stack 


LR 

RLOC,RLINK 


Set up RLOC to give good error message it 





needed 


C 

P RA5,PSMAX 


Has return stack overflowed 


BNL 

STKERR 


If so, branch for error 


A 

RRA4,PSTPTR 


Form return stack address 


ST 

RLINK,0(RRA4,RRPBS) 


save RLINK register 


ST 

RWKSP,4(RRA4,RRPBS) 


save RWKSP register 


LA 

RRA11,0 


Get code byte to indicate user 


STC 

RRA11,4(RRA4, RRPBS) 


Insert code byte in return statement 


ST 

RRA5,PSLTH 


Save return stack pointer 


LR 

RWKSP,RLIN 


Place new workspace address in RWKSP 


L 

RLIN,BSLNPTRS 


Reload RLIN register 

Code 

to place result in floating 

register 0 and restore floating point registers 


LE 

FRO, E8 (RVAL1) 


Load B 


AE 

FRO ,EC(RVAL1) 


Add C; Leave result in floating register 


MVC 

ONCELLS(ONUNITS+4),C(RWKSP) 

Restore ON units 


LE 

FR2 ,0 (RWKSP) 


Restore floating register 2 


LE 

FR4,4 (RWKSP) 


Restore floating register 6 


LE 

FR6,8 (RWKSP) 


Restore floating register 6 


** Code to restore registers RLINK and 
L RRA4, PSLTH 

SR RRA4, 82 E (RRPBS) 

ST RRA4,PSLTH 

LA RWKSP,0(RRA4,RRPBS) 

A RWKSP,PSPTR 

CLI 4 (RWKSP),X*00' 

BNE RETURNER 

L RLINK,0 (RWKSP) 

L RWKSP,4(RWKSP) 

BCR 15,RLINK 

NOPR 


RWVSP and return to caller 

Get displacement pointer to return stack 

Position it down to this entry 

Save new position 

Form a complete address 

to return stack entry 

Was last entry a user function entry 

If not, object time error 

Restore caller's RLINK 

Restore callers RWKSP 

Branch back to caller 


| ++See Note at the beginning of Appendix A. 
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DELETE FILE STATEMENT 


i-1 


| DELETE FILE 

• 

AS, KEY = BS | 

i 


** BALR 

RLOC,RRPBS 

statement header 

L 

RRA11 ,A(ICDKVDEL) 

Load run-time address 

BALR 

RL0C,RRA11 

and branch 

DC 

X *091210EC* 

File AS 

DC 

X'00007FFF' 

No exit 

DC 

X'00007FFF' 

No USIN3 clause 

DC 

X'097E1189» 

Key = BS 


END STATEMENT 


END RC=4 


** 

BALR 

RLOC, RRPBS 

statement header 


LE 

FRO,2 0(RVAL1) 

get return code value 


L 

RRA5,C4(RRUN) 

get address of end routine 


BR 

RRA5 

go to it 


| **See Note at the beginning of Appendix A. 
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FOR/NEXT STATEMENTS 


r —— 

j FOR I « 

= J TO 

K STEP N NEXT I 

** 

BALR 

RLOC,RRPBS 


LE 

FRO,1OC(RVAL1) 


STE 

FRO,7A8(RRPBS) 


LE 

FRO,110(RVAL1) 


STE 

FRO,114(RVAL1) 


LE 

FRO,118(RVAL1) 


STE 

FRO,11C(RVAL1) 


LTER 

FRO,FRO 


BALR 

RLOC,0 


LH 

RRA5,828(RRPBS) 


BNM 

C(RLOC) 


LH 

RRA5, 82 A{RRPBS) 

EFPOS 

STH 

RRA5,2 8(RLOC) 


LE 

FRO,7A8(RRPBS) 


B 

20(RLOC) 

NEXTIME 

LE 

FRO,108(RVAL1) 


AE 

FRO,11C(RVAL1) 

SKIPINIT 

LER 

FR2,FRO 


SE 

FR2,114(RVAL1) 


BALR 

RRFR,0 

OVERLAY 

LPR 

RRFR,RRFR 


BNH 

16(RRFR) 


MV I 

0(RRFR),X’10' 


MV I 

1(RRFR),X'22‘ 


L 

RRA5,BCD(RRPBS) 


B 

0(RRA5,ROBJ) 

SETNEWI 

STE 

FRO,10 8(RVAL1) 

NEXT 

** 

BALR 

RLOC,RRPBS 


L 

RRA5,00C(RLIN) 


LA 

RRA5,36(RRA5) 


BAL 

RLOC,0(RRA5,ROBJ) 


statement header 
get J value 
put it in a temp 
get K value 
put it in a temp 
get N value 
put it in a temp 

check N value for positive or negative 

to address FOR code 

get a LTER instruction 

if N not neqative skip next instruction 

get a LCER if N is negative 

put instruction in OVERLAY location 

reload J value in register 

skip over next time code 

for second time around get current I value 

and increment by N value 

get current loop value in register 2 

subtract the K value 

set temporary base 

overlaid instruction 

loop not complete 

set for loop inactive 

by creating LPR 2,2 instruction 

get the past FOR address 

branch to it - loop done 

set new value for I 

statement header 

get offset to FOR statement from LINPTRS 

bump to NEXTIME offset 

go to NEXTIME code in FOR-loop 


FORM STATEMENT 


i ..—- - ■ ---- ~ " ■-■■■■ — 

j FORM 3*C5,SKIP2, POS3, 5 X 4, L, NC7.3, PD0.4, PIC(B# f ###•*#$) 

i_— 


i 


i 


DC 

X'0100' 

Form header 

DC 

X '80BDDD* 

repetition factor (3*) 

DC 

X '04BDDD' 

c 

DC 

X'01BDDD* 

SKIP 

DC 

X’02BDDD' 

POS 

DC 

X '06' 

s 

DC 

X'03BDDD' 

X 

DC 

X'07' 

L 

DC 

X'400703* 

NC 7.3 

DC 

X '200F04' 

PD 8.4 

DC 

X'08 02 09 80 06 02 01 08' 

PIC header information 

DC 

X'216B2020204b2020* 

PIC pattern 


Note "BDDD" represents a 2-byte base displacement field, where B is the base register 
and DDD is the displacement off B. 

| ♦*See Note at the beginning of Appendix A- 
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i---1 

| GET AS, A, AS, B(3), BS(3), MATC, MATC8 | 

i_• 

** BALR RLOC,RRPBS 

L RRA5, =A(ICDKGET) 

BALR PROC,RRA5 

DC X *09121106* 

DC X'00007FFF 1 

DC X'OIOOIUS* 

DC X '09001100* 

DC X'40000000» 


DC X’04000000* 
DC X»90000000» 


DC X'OC12C004* 
DC X'02000004* 
DC X'0A00003E' 
DC X'FFFF* 


statement header 

get library routine address 

branch to library 

code for AS (file name) 

word for error exits (7FFF* indicates name) 
code for A 
CODE FOR AS 

call-me code to branch to generated code 
code to evaluate B(3) subscript 
code for B(3) 

call-me code to branch to generated code 
code to evaluate BS(3) subscript 

code for BS(3) 
code for MATC 
code for MATC8 
end-of-list indicator 


| ♦♦See Note at the beginning of Appendix A. 
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| GET A$, D, D$, EXIT 100 | 

i-1 


BALR 

RLOC,RRPBS 

statement header 

L 

RRA5,=A(ICDKGET) 

get library routine base 

BALR 

RLOC, RRA5 

branch to library 

CD 

X *09121106* 

code for AS (file name) 

DC 

X'00000000' 

code word for EXIT 

DC 

X '0 10010E8' 

code for D 

DC 

X'090010EC' 

code for D$ 

DC 

X'FFFF* 

end-of-list indicator 


i-1 

| GET A$, D, DS, EOF 10, CONV20, IOERROR 30 | 

i_i 


* * BALR 

RLOC,RRPBS 

statement header : 

L 

RRA5,=A(ICDKGET) 

get library routine base 

BALR 

RLOC,RRA5 

branch to library 

DC 

X'09121106' 

code for A$ (file name) 

DC 

X'00000004' 

code for error processing (EOF CONV IOERR) 

DC 

X '0 10010E8' 

code for D 

DC 

X '090010EC' 

code for D$ 

DC 

X'FFFF' 

end-of-list indicator 

GOSUB STATEMENT 



i "" " i 

| GOSUB 500 | 


** 

BALR 

RLOC,RRPBS 

statement header 


L 

RRA5, 50 (RRPBS) 

get offset of current entry in return stack 


LA 

RRFR,0(RRPBS,RRA5) 

add offset to PRG address 


A 

RRFR, 4C (RRPBS) 

and add on offset of base of return stack 


LA 

RRA5,4(RRA5) 

bump R5 to next entry in stack 


C 

RRA5, 760(RRPBS) 

are there too many entries? 


BNL 

2 4 (RO BJ) 

yes, branch to error routine 


ST 

RRA5, 50 (RRPBS) 

set R5 for the next stack entry 


LA 

RLINK,48(RLOC) 

set R15 to statement following this one 


ST 

RLINK,0 (RRFR) 

save that address in RETURN stack 


MVI 

0 (RRFR) ,X'01' 

indicate GOSUB return 


L 

RRA5, 20 (RLIN) 

get offset for statement 500 from LINEPTRS 
table 


B 

0 (ROBJ, RRA5) 

branch to it. 


MVI 

0 (RRFR) ,X'01 • 

set the GOSUB entry indicator 


B 

0 (RRA5,ROBJ) 

branch to the proper statement number 

COUNT 

DC 

X'46 000003* 

count of number of statement numbers 

BASE 

DC 

X'00000000* 

save area for LOAD table base 

NEXT 

EQU 

* 

address of next statement 


| **See Note at the beginning of Appendix A. 
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1- 

j GOSUB 

« _ . 

350, 360, 370 ON X+Y j 

_i 

** 

BALR 

RLOC,RRPBS 


ST 

RLOC, 114 ( RLOC) 


B 

2 0 (RLOC) 

LOAD 

L 

RRA5, IC(RLIN) 


L 

RRA5,20 (RLIN) 


L 

RRA5, 24 (RLIN) 

PAST 

LE 

FRO,120(RVAL1) 


AE 

FRO,124(RVALl) 


BALR 

R RFR,0 


L 

RLOC, 84 (RRFR) 


LA 

RLINK,88 (RRFR) 


AU 

FRO,7F8(RRPBS) 


BNPR 

RLINK 


STE 

FRO,85C(RRPBS) 


CE 

FRO,050(RRFR) 


BHR 

RLINK 


LH 

RRA5,85E(RRPBS) 


SLL 

RRA5,2 


LA 

RRA5,4(RRA5) 


EX 

R RAO , 0 ( RR A5 , RLOC) 


L 

RAA4,50(RRPBS) 


LA 

RRFR, 0 (RRPBS, RRA4) 


A 

RRFR, 4C (RRPBS) 


LA 

RRA4,4(RRA4) 


C 

RRA4, 760(RRPBS) 


BNL 

2 4(ROBJ) 


ST 

RRA4, 50 (RRPBS) 


ST 

RLINK,0 (RRFR) 


statement header 

save LOAD table base in BASE 

branch around LOAD table to PAST 

load offset from BSOBJ for 350 

load offset from BSOBJ for 360 

load offset from BSOBJ for 370 

get value of X 

add on value of Y 

use R2 as gosub code base 

restore R14 with LOAD table base from BASE 
set R15 to NEXT statement code 
make x+y expression into an integer 
if not positive, go to NEXT statement 
save expression value 

compare it to COUNT of statement numbers 
if high, go to NEXT statement 
get expression value 
multiply by 4 to index LOAD table 
add on 4 for leading ST and B instructions 
execute the proper load instruction tor 
statement offset 

get offset of current entry in Return stack 

add offset to prog address 

and add on offset of base of stack 

bump R4 to next entry in stack 

are there too many entries? 

yes, branch to the error processor 

set R4 for the next stack entry 

set NEXT statement as return address in the 

return stack 


GO TO STATEMENT 


[ go TO 600 j 

t---i 


** 

BALR 

RLOC,RRPBS 

statement header 


L 

RRA5,30 (RLIN) 

get offset to statement 600 from LINEPTR 
table 


B 

0(RRA5,ROBJ) 

branch to statement 600 


j GOTO 450, 550, 650 ON A**B j 


*♦ 

BALR 

RLOC,RRPBS 

statement header 


ST 

RLOC, 86 (RLOC) 

save base register in BASE 


B 

20(RLOC) 

branch to PAST around LOAD table 


L 

RRA5, 38 (RLIN) 

load offset to statement 450 


L 

RRA5, 3C (RLIN) 

load offset to statement 550 


L 

RRA5, 40 (RLIN) 

load offset to statement 650 

PAST 

LE 

FR2,12C(RVALl) 

set floating register 2 with B 


LE 

FR2,128(RVALl) 

set floating register 0 with A 


L 

RRA11,150 (RRON) 

get address of exponentiation routine 


BALR 

NOPR 

RLOC, RRA11 

go to it. 


BALR 

RLINK,0 

use R15 as base for code 


L 

RLOC,48(RLINK) 

get value in BASE for R14 for LOAD table 


AU 

FRO,7F8(RRPBS) 

make expression result an integer 


I **see Note at the beginning of Appendix 
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BNP 

5 2 (RLINK) 


STE 

FRO,8 5C(RRPBS) 


CE 

FRO,44(RLINK) 


BH 

5 2 (RLINK) 


LH 

RRA5, 85 E (RRPBS) 


SLL 

RRA5, 2 


LA 

RRA5, 4 (RRA5) 


EX 

0 (RRA5,RLOC) 

COUNT 

B 

0 (RRA5, ROBJ) 


DC 

X '46 000003' 

BASE 

DC 

X'OO 00 00 00* 

NEXT 

EQU 

* 


IF STATEMENT 


i IF BS = '234 
• - 

-1 

• GOTO 800 | 

i 

** BALR 

RLOC, RRPBS 

LA 

ROBJ, 0F4 (RVAL1) 

LA 

RRFR, 131(RV AL1) 

L 

RRA11,800(RRPBS) 

IC 

RRA11,0F3 (RVAL1) 

SR 

R RA3 , RR A3 

IC 

RRA3, 130 (RVAL1) 

CLCL 

RRFR,ROBJ 

L 

ROBJ,A80(RRPBS) 

L 

RRA5, 48 (RLIN) 

BE 

0 , (ROBJ ,RRA5) 


i-1 


| IF 

• 

A + B >= 

100 THEN A = A + 1 | 

i 

** 

BALR 

RLOC,RRPBS 


LE 

FRO,128(RVAL1) 


AE 

FRO,12C(RVAL1) 


STE 

FRO,0(RWKSP) 


LE 

FRO,134(RVAL1) 


CE 

FRO,0(RWKSP) 


BALR 

RLOC,0 


BNL 

1 6(RLOC) 


L 

RRA5, 12 (RLOC) 


B 

0(ROBJ,RRA5) 


DC 

X'OO 00 02 6E* 

THEN 

BALR 

RLOC, 0 


LE 

FRO,128(RVAL1) 


AE 

FRO,8(RVAL1) 


STE 

FRO,4(RWKSP) 


LE 

FRO,4(RWKSP) 


STE 

FRO,128(RVAL1) 

PAST 

EQU 

* 

**See 

Note at 

the beginning of AoDe: 
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if not positive, branch to NEXT statement 
save expression result 
compare with COUNT of statement number 
if more, go to NEXT statement 
otherwise, get expression value 
multiply by 4 to index into LOAD table 
add on 4 to take care of ST and B before the 
table 

execute the proper load of statement offset 
and branch to the proper statement 
COUNT of number of statement numbers 
save area of LOAD table base 


statement header 
get address of B$ in RIO 
get address of *234* in R2 
put pad character in R11 
put length of B$ in R11 
zero out R3 

put length of f 234 f in R3 
compare B$ with f 234* 
restore RIO with BSOBJ 

get offset of statement 800 from LINEPTRS 
table 

branch to statement 800 it equal. 


statement header 
get variable A 
add on B 

Put result in workspace 

get constant 100 

compare it to workspace value 

for addressability of constant 

branch to THEN if equal or greater 

get offset of code past THEN 

branch past the THEN code 

offset off code past the THEN 

THEN statement header 

get variable A 

add on constant 1 

save value in workspace 

get workspace value 

store it in A 
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i.. . .1 

| IF LS <> M$ THEN STOP ELSE LS = 'FLOWER* j 
•--- 1 


* * 

BALR 

RLOC,RRPBS 


LA 

ROBJ, 140 (RVAL1) 


LA 

RRFR,153(RVAL1) 


L 

RRA11,800(RRPBS) 


IC 

RRA11.13F(RVAL1) 


SR 

RRA3.RRA3 


IC 

RRA3,152(RVAL1) 


CLCL 

RRFR,ROBJ 


L 

ROBJ,ABO(RRPBS) 


BALR 

RLOC, 0 


BNE 

16(RLOC) 


L 

RRA5, 12 (RLOC) 


B 

0 (ROBJ,RRAS) 


DC 

X'000002B8' 

THEN 

BALR 

RLOC, 0 


L 

RRA3,C4 (RRtJN) 


BR 

RRA3 


BALR 

RLOC,0 


L 

RRA5, 8 (RLOC) 


B 

0 (ROBJ,RRAS) 


DC 

X'000002DE' 

ELSE 

BALR 

RLOC, 0 


LA 

ROBJ,138(RVAL1) 


L 

RRA11,800 (RRPBS) 


IC 

RRA11 ,0 (ROBJ) 


LA 

ROBJ,1(ROBJ) 


LA 

RRFR,13F(RVAL1) 


XR 

RRA3, RRA3 


IC 

RRA3,0(RRFR) 


LA 

RRFR, 1 (RRFR) 


MVCL 

RRFR,ROBJ 


L 

ROBJ,A80(RRPBS) 

PAST 

EQU 

* 


statement header 
set RIO to address of LS 
set R2 to address of MS 
set R11 to pad character 
get length of LS into R11 
zero out R3 

get length of MS into.R3 

compare long 

reset RIO to BSOBJ 

for addressability of constant 

branch to THEN clause if not equal 

pick up offset from BSOBJ to ELSE 

branch to ELSE clause 

offset of ELSE clause 

statement header for THEN clause 

pick up address of STOP routine 

branch to it 

for addressability of constant 

pick up offset of code past ELSE claus 

branch to it 

offset past ELSE clause 

statement header for ELSE clause 

set RIO to address of 'FLOWER' 

set R11 with pad character 

set R11 with length of 'FLOWER' 

set P10 past the length byte 

set R2 to LS 

zero out R3 

set R3 with length of LS 
bump R2 past the length byte 
move 'FLOWER' into LS 
restore RIO to BSOBJ 
end of ELSE clause 


IMAGE STATEMENT 


r — —i 

| : AVERAGE IS ** ##| 

In, , - ■ ■ —J 


DC 

DC 

DC 

DC 

X'0200* 

X'050B' 

X'C1E5C5D9* 

X 'C1C7C540' 

X'C9E240* 

X'10020800040205' 

Image statement header 
Literal information header 

Literal data 

Conversion information 

INPUT A,A$,B(3),B$(3),MAT C,MAT Cf 


** BALR 

RLOC,RRPBS 

statement header 

L 

RRA5,=A(ICDKINPT) 

get library routine address 

BALR 

RLOC,RRA5 

branch to library 

DC 

X'01 00 1 0E8' 

code for A 

**See Note at 

the beginning of Appendix A. 
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DC X^OOIOEC' 
DC X'iKJOOOOOO 1 


L RRA3 f KROUTRET 

BALR RLOC,RRA3 

DC X'OUOOCOOO 1 

DC X'40000000 1 


Licensed Material - Property of IBM 

code for A$ 

call-me code to branch to generated code 


code to evaluate and check the B(3) subscript 
and put information in the WORKSPACE area 


get address of return point in library 
return to library 
code for B(3) 
call-me code again 


generated code for B$(3) subscript 
evaluation again 


DC X 1 0C12C004 1 
DC X 1 02000004 1 
DC X 1 0A00003E 1 
DC X 1 FFFF 1 


code for B$(3) 

code for MAT C 

code for MAT C$ 

end of list indicator 


INPUT FROM 1 ABC * 


BALR 

RLOC,RRPBS 

statement header 


L 

RRA5,IB0(RRUN) 

get library routine 

address 

BALR 

RLOC,RRA5 

go to it 


DC 

x'osoir^c' 

code for 'ABC* and 

input 


| ** See Note at the beginning of Appendix A. 
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LET STATEMENT 


Licensed Material - Property of IBM 


f • 

| LET A, 

• . . 

B, C 

= F + A * R j 

t 

** 

BALR 

RLOC,RRPBS 


LE 

FRO,128(RVAL1) 


ME 

FRO,170(RVAL1) 


AE 

FRO,16C(RVAL1) 


STE 

FRO,0(RWKSP) 


LE 

FRO,0(RWKSP) 


STE 

FRO,128(RVAL1) 


LE 

FRO,0(RWKSP) 


STE 

FRO,12C(RVAL1) 


LE 

FRO,0(RWKSP) 


STE 

FRO,174(RVAL1) 


statement header 
get ’A’ 

multiple by *R' 
add on •F* 

save result in workspace 

get evaluated result 

store it in •A* 

get evaluated result 

store it in ' B’ 

get evaluated result 

store it in *C' 


LET A = 67 


** 

BALR 

RLOC,RRPBS 

statement header 


LE 

FR0,168(RVAL1) 

qet value , 67* 


STE 

FRO,128{RVAL1) 

store it in •A 1 

1- 

| LET 

■ 

M$ = *LL 

• 11 B$ j 

_i 


** 

BALR 

RLOC,RRPBS 

statement header 


MVC 

0 (3, RWKSP) , 17 8 (RVAL1) 

move 'LL 1 into workspace 


MVC 

3 (17,RWKSP) ,F4 (RVAL1) 

move B5 into WKSP after 1 LL 1 


MV I 

0 (RWKSP) , 20 

set string length to 20 


LA 

ROBJ,0 (RWKSP) 

get string address in R10 


L 

RRA11,800 (RRPBS) 

get pad character in R11 


IC 

RRA11,0 (ROBJ) 

get string length in R11 too 


LA 

ROBJ, 1 (ROBJ) 

bump R10 past string length 


LA 

RRFR,152(RVAL1) 

set target address in R2 


XR 

RRA3,RRA3 

zero R3 


IC 

RRA3,0 (RRFR) 

get target length in R3 


LA 

RRFR, 1 (RRFR) 

bump R2 past target length 


MVCL 

RRFR, ROBJ 

move string to target 


L 

ROBJ,A80(RRPBS) 

restore R10 to BSOBJ 


MAT STATEMENT 


| MAT H = (501*N-34.9) *I| 

i_i 


BALR 

RLOC,RRPBS 

statement header 

LE 

FRO,336(RRA0,RVAL1) 

get constant 501 

ME 

FRO,252(RRA0,RVALl) 

multiply by N 

SE 

FRO,340(RRA0,RVALl) 

subtract constant 34,9 

L 

RAA5, 12 4 ( RRtJN , RRA0) 

get address of MAT scalar times array routine 

BALR 

RLOC, RAA5 

branch to it 

DC 

X *02 00 000E* 

parameter H 

DC 

X*02 00 0010* 

parameter I 


| **See Note at the beginning of Appendix A. 
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r- ■■ ■ 


| MAT E = F * 

® I 

ft 


** BALR 

RLOC,RRPBS 

L 

RRA5,120(RRUN,RRA0) 

BALR 

RLOC,RRAS 

DC 

X *02 00 0008* 

DC 

X *02 00 000A* 

DC 

X *02 00 000C' 


I - 


j MAT E = T - 

G | 

* 

_J 

** BALR 

RLOC,RRPBS 

L 

RRA5,12 8(RRUN;RRA0) 

BALR 

RLOC,RRAS 

DC 

X*02 00 0008* 

DC 

X*02 00 OOOA* 

DC 

X*02 00 OOOC 


f.. 


-i * • 

3 MAT E 

- F * 

G | 

l_ 


_J 

** 

BALR 

RLOC,RRPBS 


L 

RRA5,92(RRUN, RRA0) 


BALR 

RLOC,RRA5 


DC 

X '02 00 0008* 


DC 

X*02 00 OOOA* 


DC 

X*02 00 000C* 


4- - - 

-1 

) MAT C = 

D ( 

*— - 

_l 


** BALR 

RLOC,RRPBS 

BCR 

0,0 

L 

RRA5, 104 (RRUN, RRAO) 

BALR 

RLOC,RRA5 

DC 

X*02 00 0004* 

DC 

X*02 00 0006* 


r mm -.. 

\ MAT 

i_ 

A = (22. 

. 7* V+3) j 

„.f 

** 

BALR 

RLOC , RRPBS 


BCR 

0,0 


LE 

FRO,244(RRAO,RVAL1) 


ME 

FRO,248(RRAO,RVAL1) 


AE 

FRO,24(RRAO>RVAL1) 


L 

RRAS ,124 (RRUN,RRAO) 


BALR 

RLOC,RRA5 


DC 

X*02 00 0000* 


DC 

x*pp 00 0000* 

+ *See 

Note at 

the beginning of Appendix 


IB 4 


statement header -. 

get address of MAT -mult routine 

branch to it - 

parameter E 

parameter F 

parameter G 


statement header. 

get address of MAT MINUS routine 

branch to it 

parameter E 

parameter F 

parameter G 


statement header 

get address of MAT plus routine 

branch to it 

parameter E 

parameter F 

parameter G 


statement header 
no-op 

get address of MAT ASSIGN routine 
branch to it 
parameter C 
parameter D 


statement header .. _ 

no-op 

get constant 22.7 
multiply by V 
add on 3 

get address of MAT scalar assign routine 
branch to it 
parameter A 

not used, (only used for character 
assignment) 
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| MAT A(N,M) 

I 


= ( 22.7*Y+3) 
- 1 


BALR 

RLOC,RRPBS 

statement header 

LE 

FRO,252(RRAO,RVAL1) 

get variable N 

STE 

FRO,2128(RRAO,RRPBS) 

save it in Rediml 

LE 

FRO,256(RRAO,RVAL1) 

get variable M 

STE 

FRO,2132(RRAO,RRPBS) 

save it in Redim2 

L 

RRA5, 176 (RPUN, RRAO) 

get address of Redim Routine 

BALR 

RLOC,RRA5 

branch to it 

DC 

X'02 00 0000' 

parameter f A f for redimensioning 

LE 

FRO,260(RRAO,RVAL1) 

get constant 22.7 

ME 

FRO,248(RRAO,RVAL1) 

multiply by Y 

AE 

FRO,24(RRAO,RVAL1) 

add on 3 

L 

RRA5,124(RRUN,RRAO) 

get address of scalar assign routine 

BALR 

RLOC,RRA5 

branch to it 

DC 

X•02 00 0000' 

parameter •A* 

DC 

X'OO 00 0000* 

not used, (only used for character 
assignment) 


ON OFLOW GOTO 350 


BALR 

R14,R18 

statement header 

L 

R5,=A(ICDKON) 

get library routine a 

BALR 

R1 4,R5 

and branch to it 

DC 

X 1 03 04 0013' 

disp into ONCELS=03 



condition is GOTO=04 



disp into LINEPTRS=0018 


OPEN STATEMENT 


i-1 


| OPEN A$ OUT, 

• 

1 FILEA' IN, IOERR 300 | 

j 



** BALR 

RLOC,RRPBS 

statement header 

L 

RRA5,=A(ICDKOPEN) 



BALR 

RLOC,RRA5 



DC 

X'09 01 1106' 

code for 

A$ OUT 

DC 

X'OO 00 0008' 

code for 

IOERR 

DC 

X'OO 00 7FFF' 

no USING 

clause 

L 

RRA5,=A(ICDKOPEN) 



BALR 

RLOC,RRA5 



DC 

X'09 00 10FF' 

code for 

'FILEA 1 IN 

DC 

X’OOOO 0008’ 

code for 

IOERR 

DC 

X'0000 7FFF' 

no USING 

clause 


OPEN FILE STATEMENT 


OPEN FILE A$ IN, 1 FILEl' OUT REUSE, B$(1) ALL, 'A'H'B' ALL HOLD REUSE, EXIT 50 


BALR 

RLOC,RRPBS 

statement header 

L 

RRAl1,=A(ICDKVOPN) 

get library routine 

BALR 

RLOC, RRA1 1 

branch to library 

DC 

X 1 09 00 1106* 

code for A$ IN 

DC 

X'0000 0004' 

code for EXIT 

DC 

X'0000 7FFF' 

no USING clause 

L 

RRAl1,=A(ICDKVOPN) 

get library routine 

BALR 

RLOC,RRAl1 

branch to library 

code for 'FILEl 1 OUT REUSE 

DC 

X ' 09 04 1 OFF' 


**See Note at the beginning of Appendix A. 
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DC X'0000 0004' 

DC X'0000 7FPF' 


• 

L RRA11 ,=A(ICDKVOPN) 

BALR RLOC,RRAl1 
DC X'OO 02 COOO' 

DC X’OO 00 0004’ 

DC X'OO 00 7FFF' 


L RRA11,=A(ICDKVOPN) 

BALR RL0C,RRA11 

DC X'09 01 C004 ' 

DC X'OO 00 0004'' 

DC X'0000 7FFF' 


code for EXIT • ' ■ 

no USING clause 

code to evaluate subscript B$(1) 


get library routine 
branch- to library 
code for B$ (1) ALL 
code for EXIT 
no USING clause 


code to concatenate 'A' || 'B' 


get library routine. 

branch to library 

code for 'A'||'B' ALL HOLD REUSE 

code for EXIT 

no USING clause 


PAUSE STATEMENT 


i . i 

| no PAUSE) 

i_i 

BALR RLOC,RRPBS 
L R RA5,RRA4(RRUN) 

BALR 

DC X'02 FIF7F04040* 


statement header 

get address of input routine 

branch to it 

argument. Leading '02* indicates pause, the 
statement number follows in EBCDIC. 


•note that input library routine also handle run-time pause processing 


PRINT STATEMENT 


i - " . . . — .— i 

| PRINT A; A$, B(3); B$(3), MAT C; MAT C$ | 

i_ ■ 


BALR 

RLOC,RRPBS 

L 

• 

• 

RRA5,=A(ICDKPRNT) 

BALR 

RLOC,RRA5 

DC 

X'OO 000000* 

DC 

X'01 02 10E8' 

DC 

X'09 01 1 0EC' 

DC 

X'04 02 C000' 

DC 

X'OC 01 C 004' 

DC 

X *02 02 0 004' 

DC 

X'OA 08 0 034' 

DC 

X'FFFF' 


| **See Note at the beginning of Appendix A. 


statement header 

code to evaluate and check the B$(3) 
subscript and put information in workspace 
area. 

get library address 
go to library 

unformatted print indicator 
code for A with semi-colon following 
code for A* with comma following 
code for B(3) with semi-colon following 
code for B$(3) with comma following 
code for MAT C with semi-colon following 
code for MAT C$ with C/R following 
end of list indicator 
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PRINT TO A$ 


** 

BALR 

L 

BALR 

DC 

RLOC,RRPBS 

RRA5,1B0(RRUN) 
RLOC,RRA5 

X' 09 00 1432’ 

1 


1 

J PRINT 

i 

USING 

100, D, DS | 

• 

** 

BALR 

RLOC, RRPBS 


L 

RRA5, =A (ICDKPRNT) 


BALR 

RLOC,RRA5 


DC 

X'OIQOOOOO* 


DC 

X*01 02 10 E8 * 


DC 

X *090810 EC' 


DC 

X'FFFF* 


statement header 

get library routine address 

go to it 

code for A$ and output 


statement header 

get library routine address 

branch to library 

formatted print header 

code for D 

code for DS 

end of list indicator 


PUT STATEMENT 


| PUT AS, A, AS, B (3) , BS(3), MATC, MAT CS | 

i_i 

| ** BALR RLOC,RRPBS statement header 

• code to evaluate B(3) subscript 

• code to evaluate BS(3) subscript 


L 

RRA5,=A(ICDRPUT) 

get library routine base 

BALR 

RLOC,RRA5 

branch to library 

DC 

X *09121106' 

code for AS (file name) 

DC 

X'00000006' 

number of arguments 

DC 

X*01001138* 

code for A 

DC 

X *09 12 1106' 

code for AS 

DC 

X'OUOOCOOO' 

code for B(3) 

DC 

X'OC 12 COO4' 

code for B$(3) 

DC 

X•02000004* 

code for MATC 

DC 

X*0AO0003E' 

code for MATCS 


| ** See Note at the beginning of Appendix A 
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| PUT AS, D, D$, EXIT 100 | 

i_i 


BALR 

RLOC,RRPBS 

statement header 

L 

RRA5,=A (TCDKPUT) 

get library routine address 

BALR 

RLOC, RRA5 

branch to library 

DC 

X' 09 121106' 

code for AS (file name) 

DC 

X '00000003' 

number of arguments 

DC 

X'01001008' 

code for D 

DC 

X'091210EC' 

code for D$ 

DC 

X•80000000' 

code for EXIT 100 


i-1 

| PUT AS, D, D$, EOF 100, 10 ERR 300| 

i-1 


BALR 

RLOC,RRPBS 

statement header 

L 

RRA5, =A(ICDKPUT) 

get library routine base 

BALR 

RLOC,RRA5 

branch to library 

DC 

X'09121106' 

code for AS (file name) 

DC 

X'0000 0003' 

number of arguments 

DC 

X'01001008« 

code for D 

DC 

X'09 12 10EC' 

code for DS 

DC 

X'30000008' 

code for EOF100, IOERR300 


READ STATEMENT 


i- -- i 

| READ A, AS, B (3) , BS<3), MAT C, MAT CS | 

i i 


BALR 

RLOC,RRPBS 

L 

RRA5,=A{ICDK READ 

BALR 

RLOC, RRA5 

DC 

X'01 00 1 0E8' 

DC 

X'09 00 1 0EC' 

DC 

X'40 00 0 000' 

• 

* 

L 

• 

• 

RRA3, KROOTRET 

BALR 

RLOC, RR A3 

DC 

X'OttOO C 000' 

DC 

X *40 00 0 000' 

• 

• 

DC 

• 

• 

X'OC 12 C 004* 

DC 

X'02 00 0 004 • 

DC 

X'OA 00 0 03E' 

DC 

X'FF FF' 


statement header 

get library routine address 

branch to library 
code for A 
code for AS 

call-me code to branch to generated code 

code to evaluate and check the B(3) subscript 
and put information in the WORKSPACE area 

get address of return point in library 
return to library 
code for B(3) 
call-me code again 

generated code for B$(3) subscript evaluation 
again 

code for BS(3) 
code for MAT C 
code for MAT CS 
end of list indicator 


| **See Note at the beginning of Appendix A. 
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READ FILE STATEMENT 


j READ FILE USING 555 Zt , KEY >= *10001*, D, D$, EXIT 777J 

1-- - . - • 1 _I 


BALR 

RLOC,RRPBS 

statement header 

L 

RRA11,A(ICDKVRD) 

load runtime address 

BALR 

RLOC, RRA11 

and branch 

DC 

X’09001134* 

file Zt 

DC 

X'OOOOOOOC' 

exit 111 

DC 

X'00000004' 

using form 555 

DC 

X '096E117D* 

key > *10001' 

DC 

X'01001130' 

D 

DC 

X'09001134* 

D$ 

DC 

X'FFFF* 

end of list 


REREAD FILE STATEMENT 


y ■ - — —. . i 

| REREAD FILE A*, D, D$ | 

i_i 


BALR 

RLOC,RRPBS 

statement header 

L 

RRA11, A(ICDKVRST) 

load runtime address 

BALR 

RLOC, RRA11 

and branch 

DC 

X '091210EC' 

file AS 

DC 

X'00007FFF' 

no exit clause 

DC 

X 1 00007FFF' 

no using clause 

DC 

X'00000000' 

no key clause 

DC 

X'01001130' 

D 

DC 

X *09001134* 

DS 

DC 

X'FFFF' 

end of list 


| **See Note at the beginning of Appendix A. 
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RESET STATEMENT 


| RESET A$ END, IOERR 20 


BALR 

RLOC,RRPBS 

statement header 

L 

RRA5 # =A (ICDKRSET) 

get library routine address 

BALR 

RLOC, RRA5 

branch to library 

DC 

X • 09 12 1 1 06 1 

code for Af (tile name) 

DC 

X'OO 00 0000* 

code for IOERR 

DC 

X * FFFF 7FFF 1 

indicator for END 


| RESET 'AA' j 


BALR RLOC,RRPBS 
L RRA5=, A(ICDKRSET) 

BALR RLOC,RRA5 
DC X'090 21 12F' 

DC X'0000 7FFF 1 
DC X'0000 7FFF 1 


statement header 

get library routine address 

branch to library 

code for 'AA' (file name) 

no error exit 

reset to start 


j RESET 6BUFFJ 


BALR RLOC,RRPBS 
SDR FRO,FRO 

STD FRO,BUFF-VARCON(RVAL1) 


statement header 
clear register 
store in 6BUFF 


RESET FILE STATEMENT 


RESET FILE B$, REC=2,NOREC 30 


BALR 

RLOC,RRPBS 

statement header 

L 

RRA11,=A(ICDKVRST) 

get library routine address 

BALR 

RLOC,RRA11 

branch to library 

DC 

X'09 12 113A' 

code for B$ 

DC 

X'0000 0004' 

code for NOREC 

DC 

X'0000 7FFF' 

no USING clause 

DC 

X'01 7E 1010' 

code for REC=2 


j RESET FILE B$(3) KEY = ' 10005* j 


BALR RLOC,RRPBS 


statement header 


code to evaluate subscript 


L RRA11,=A(ICDKURST) 

BALR RLOC,RRA11 

DC X'0C12C000' 

DC X'0000 7FFF 1 

DC X'0000 7FFF' 

DC X'09 7E 115C' 


get library routine address 

branch to library 

code for B$(3) 

no error exits 

no USING clause 

code for KEY='10003’ 


**See Note at the beginning of Appendix A. 
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RESTORE STATEMENT 


i- 

( RESTORE 

i_ 


I 

j 



BALR RLOC,RRPBS 
L RPFR,BSDAT 

ST RRFR,CORDAT 


statement header 

get base of data table 

get in current data location 


RETURN STATEMENT 


I 1 

j RETURN | 

i_i 

| ** BALR RLOC.RRPBS 

L RRA3,50 (RRPBS) 

SH RRA3, 82C(RRPBS) 

LA RRFR,0(RRA3.RRPBS) 

A RRFR, 4C (RRPBS) 

TM 0 (RRFR) ,X'FF* 

B 3 2 (ROBJ) 

ST RRA3, 50 (RRPBS) 

L RRFR,0(RRFR) 

BR RRFR 


statement header 


is entry for gosub? 
no, goto error processor 

get return address into register 2 
go to return address 


REWRITE FILE STATEMENT 


t - 

| REWRITE FILE USING 100 AS, KEY 

i___ 


- 1 

•222', D, DS, EXIT 888 j 

__i 


BALR RLOC,RRPBS 

L RFA11 ,A (ICDKVRWR) 

BALR RLOC, RRA11 

DC X»G91210EC* 

DC X*000000 

DC X*00000000* 

DC X*097ET1A0* 

DC X*0100T13Q* 

DC X*09121134* 

DC X'FFFF* 


statement header 

get runtime address 

and branch 

file AS 

exit 888 

using form 100 

Key=*222* 

D 

DS 

end of list 


**See Note at the beginning of Appendix A. 
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STOP STATEMENT 


i-1 

| STOP | 

i_ , i 

statement header 
zero return code 
get address of stop routine 
go to it 

WRITE FILE STATEMENT 


BALR RLOC,RRPBS 
SER FRO,FRO 
L RRA3,C4(RRUN) 

BR RRA3 


i - 

| WRITE FILE USING 100 A$, D, Df, 

i_ 


-1 

EXIT 888 j 

_i 


BALR 

RLOC,RRPS 

base for statement 

L 

R RA11 , A (ICDKVWRT) 

get runtime address 

BALR 

RLOC, RRA11 

and branch 

DC 

X'09121OEC* 

file A$ 

DC 

X’00000014’ 

exit 888 

DC 

X*00000000' 

using form 100 

DC 

X'00000000' 

no key clause 

DC 

X’01001130' 

D 

DC 

X’09121134* 

D$ 

DC 

X'FFFF' 

end of list 


**See Note at the beginning of 
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AT SUBCOMMAND 


AT Header Element 


1 — 


Chain Address 


hi 


06 

1 1 

I ™ 1 

I 1 

00 j 00 

- 1 

i 

a 

1 


Pointer to AT Subcommand 

List Header Element or 0 

1 

1 

i 

I 

1 

« _ 


AT Count or 0 


\ 

1 

-1 


xx - 04 indicates that NOTIFY is required 

00 indicates that NONOTIFY is required. 


AT Statement ID Element (one for each statement id or range in AT subcommand) 





Chain Address 



Hi 


06 

i 

i 

XX | 

i 

00 j 

L ___ 

00 

» 

1 

_ a 




Statement* Table Pointer 

(for statement-ids) 

or 0 

I 

1 

a 

a 



Statement Table Pointer 

(for statement-ids) 

or 0 

1 

1 

-1 


nn - 00 indicates the last element. 
10 indicates other than last. 


END SUBCOMMAND 



GO TTOI SUBCOMMAND 
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HALT SUBCOMMAND 


r — -- -■ - —.i 

| Chain Address | 

i_ _ . _ ___ i 

»- 

0A 

--—I- 

1 

, .1 

00 j 

1 . 

00 

j 00 

» 

I 

4 


00 


00 

00 

00 

1 

1 

1 

i _ 

00 


00 

00 

00 

- 1 
i 

__ -- 1 


HELP SUBCOMMAND 


1 - — —. .. 


Chain Address 



-n 

1 

_ 1 

15 

1 

1 

_ i 

00 j 

i - 1 

00 

j oo 

1 .... 

1 

1 

4 

00 


00 

00 

00 

1 

1 

4 

00 

1_ 


00 

00 

00 

1 

1 

_1 


IF SUBCOMMAND 


IF Header Element 


4--’--------1 

| Chain Address | 

i_ _i 

— 

0E 

-1- 

1 

a 

1 

XX 1 

" __ _ *_ ... 

80 j 

l 

80 

i 

i 

4 



Address of IF 

Condition Element 


I 

1 

4 

1__ 


Address of IF 

Subcommand List Header 


I 

1 

_1 


xx - 01 indicates = 

02 indicates * or <> 
03 indicates > 

04 indicates >= or 2 
05 indicates < 

06 indicates <= or £ 


IF Condition Element 


1 ‘ 

_ ... 


chain Address 



- , 

1 

_1 

1 23 

a_ 

E v- 
1 

_1_ 

- i 

Length | xx t 

_1_ 

i 

i 

_a_ 

XX 2 

1 

_1 

---■-1 

| Pointer to Operand 1 I 

I- 

i 


Pointer to Operand 2 



1 

1 

_1 


Length - is 0 if both operand 1 and operand 2 are character variables or array elements. 

If only one of the operands is a character variable or array element, it is the 
length of that, operand. 
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80 indicates that another element is chained to this one tor operand 1 (an IF 
Subscript Address Chain for array elements) . 

40 indicates that the variable has a negative value. 

08 indicates that the variable is numeric. 

01 indicates that the pointer to operand 1 is a pointer to a symbol table entry 
(for variables and entire arrays). 

02 indicates that the pointer to operand 1 is a pointer to a constant. 

03 indicates that the pointer to operand 1 is a pointer to a subscript address 
chain (SAC) (for array elements). 


Note : These values will be combined as required. 

xx 2 - is the same as xx, except that it refers to operand 2. 


If a variable r an array name, a subscripted array element, or a numeric or character 
constant appears in an IF subcommand, the debug routines ICDISCAN and ICDTSCN are called 
to scan the item and produce an intermediate text element that will be incorporated into 
this one. See the format of the intermediate text elements in this appendix. 


IF Subcommand List Header 


1- 



Chain Address 




1 


24 

i 

i 

. * 

00 y 

L . .. .. 

00 

1 

1 

1 

00 





Use Count 




| 

1_ 



00 




1 

1 


The use count is set to 1 when the element is created. The text element for the 
subcommand specified with the IF subcommand is chained to this element. 


IF Subscript Address Chain Element (if required) 


r- 

00 

00 

00 


00 

-1 


21 

i oo I 

i . ■ 

xx 

i 

i 

* 

00 



Pointer 

to Symbol Table Entry if Variable 

Subscript 

or 0 


_a 

i_ 

Integer 

Constant to be added co Variable 

to Compute 

Subscript. 


Hi 


xx 


01 indicates that the positive of the variable 
specified. 

40 indicates that the negative of the variable 


is 

to 

be 

used 

is 

to 

be 

used 


or no variable was 
(for example, x(-a)). 


INTERMEDIATE TEXT ELEMENTS 


— 

00 

00 


00 


00 

i 

00 

-T" 1 

| Length or 00 

1 - . 

1 

1 

00 

i 

i 

i . 

xx 

i 

_ a 

00 

00 


00 


00 or 01 

1 

i 

• 

Pointer 

to Operand 




; 


Length - indicates the length of character variables, array elements, or constants. The 
length is 0 if a numeric variable is present. 
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xx - is the data descriptor. See the formats of the IF, LIST, SET, or WHEN subcommands 
for the actual values. 


Whenever a numeric or character variable, array name, subscripted array element, or 
constant is encountered in an IF, LIST, SET, or WHEN subcommand the routine ICDISCAN is 
called. ICDTSCN is called, in turn, to actually do the scanning. ICDTSCN produced the 
intermediate text element with the third word set to 0. When before ICDISCAN return the 
intermediate text element to the calling routine it sets the third word to 1. When the 
calling routine receives the intermediate text element, it converts it into the format 
shown for the IF, LIST, SET, and WHEN subcommands. 


LIST SUBCOMMAND 


LIST Header Element 


Hi 


Chain Address 



-1 

1 

i 

HI 

OF 

| 00 j 00 

_ i _■_ 

1 

1 

_ 1 _ 

00 

i 

_ t 

| ‘FF000CCQ' (for LIST *) or 0 j 

i _ ___■ 

1 

» 

■ 


Pointer to Directory Entry (for LIST *) 

or 0 


i 

i 


i 


LIST 

Data Element 

(one required 

for each item in the list) 




H 



Chain Address or 0 



\ 

1 

1 

■ 

10 

1 

_1_ 

XX I XX t 

_I_ 

1 

___1_ 

00 

T 

i 

_i 

• -1 

l Pointer to OperaQd t | 

a_ _i 

■ 

00 


00 00 


00 

- , 

i 

_i 


xx - 00 indicates the last element. 
10 indicates other than last. 


xx t ~ 80 indicates that another element is chained to this one for operand 1 (a LIST 
Subscript Address Chain for array elements). 

40 indicates that fhe variable has a negative value. 

08 indicates that the variable is numeric. 

01 indicates that the pointer to operand 1 is a pointer to a symbol table entry 
(for variables and entire arrays). 

02 indicates that the pointer to operand 1 is a pointer to a constant. 

03 indicates that the pointer to operand 1 is a pointer to a subscript address 
chain (SAC) (for array elements). 


Note : These values will be combined as required. 


If a variable, an array name, a subscripted array element, or a numeric or character 
constant appears in a LIST subcommand, the debug routines ICDISCAN and ICDTSCN are called 
to scan the item and produce an intermediate text element that will be incorporated into 
this one. See the format of the intermediate text elements in this appendix. 
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LI ST 

Subscript 

Address Chain Element 

Licensed Material - 

(if required) 

Property of 

IBM 

« 

i 

i- 

00 

00 

00 

00 

■1 

I 

i 

i 

21 

] 00 

• 

f V 

i ™ i 

i _ i_ 

00 

-1 

1 

1 

i 


Pointer to Symbol Table 

Entry if Variable Subscript or 0 


-1 

1 


| Integer Constant to be added to Variable to Compute Subscript | 

i---1--i 


xx - 01 indicates that the positive of the variable is to be used or no variable was 
specified. 

41 indicates that the negative of the variable is to be used (tor example, x(-a)). 


LISTBRKS SUBCOMMAND 


1- 


Chain Address 



- 1 

1 

a 

11 

' 1 

1 

a 

00 | 

> 

00 

] 00 

1 ... 

f 

1 

fl 

00 


00 

00 

00 

1 

1 

- - 1 

00 

i_ 


00 

00 

00 

1 

1 

_1 


LISTFREQ SUBCOMMAND 


1- 


Chain Address 




1 


12 

i sz i 

i. • 

00 

— - „ , - 

1 

1 

00 



00 

00 

00 


oc 

1 

1_ 

00 

00 

00 


00 

1 

1 

t 


x - 8 indicates a chain. 

0 indicates the last element. 

y * 2 indicates zero frequency. 

0 indicates other than zero frequency. 


NEXT SUBCOMMAND 


1 - 



Chain Address 




Hi 


05 

1 

1 

a 

00 j 

1 

00 

1 

1. 

00 



00 


00 

00 


00 


1_ 

00 


00 

00 


00 

Hi 


Appendix B: VS BASIC Debug Internal Text Elements 175 






















Licensed Material - Property of IBM 
OFF SUBCOMMAND 



xx - 00 indicates the last element. 
10 indicates other than last. 


OFFWHEN SUBCOMMAND 


c~- 



Chain Address 




- —* 


26 

1 

- . 1- .. -... . 

XX | 

- .. .. ..... A_ .... . 

00 

V 

i 

* 

00 



00 


00 

00 


00 

fl 

«_ 



Condition ID or 0 




I 

1 

- -i 


xx - 00 indicates last element. 

10 indicates other them last. 


QUALIFY SUBCOMMAND 


. .—. . . " 1 1 " ■ 1 . .. ■■ .. — . . . —t 



RUN SUBCOMMAND 


V 



chain Address 



--1 

! 

_ 1 


oc 

1 

- A... __ 

O 

o 

o 

o 

V 

1 

_ 1___ 

00 

1 

! 

_ 1 

1-1 

| Branch Address or 0 I 

_ _ i 

i- 

i __ ■ 



Program Unit Identifier or 0 



-1 

1 

* 
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WHEN SUBCOMMAND 



WHEN Reader Element 


Address of Condition ID Element 

00 00 00 00 


WHEN Condition ID Element 



0 (if a previously defined condition is to be turned on) or 
Address of WHEN Condition Element 


Condition ID in EBCDIC (left justified) 


xx - 00 indicates that a previously defined condition is to be turned on. 

01 indicates = 

02 indicates * or <> 

03 indicates > 

04 indicates >= or > 

05 indicates < 

06 indicates <= or < 

08 indicates that the changes of a variable or an array element are to be monitored. 



WHEN Condition Element 


Pointer to Operand 2 


Length - is the length of the variable or array element to be monitored. 

xx , - 80 indicates that another element is chained to this one for operand 1 (a WHEN 
Subscript Address Chain for array elements). 

40 indicates that the variable has a negative value. 

08 indicates that the variable is numeric. 

01 indicates that the pointer to operand 1 is a pointer to a symbol table entry 
(for variables and entire arrays). 

02 indicates that the pointer to operand 1 is a pointer to a constant. 

03 indicates that the pointer to operand 1 is a pointer to a subscript address 
chain (SAC) (for array elements). 

Note ; These values will be combined as required. 

xx . - is the same as xx t except that it refers to operand 2. 

If a variable, an array name, a subscripted array element, or a numeric or character 
constant appears in a WHEN subcommand, the debug routines ICDISCAN and ICDTSCN are called 
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to scan the item and produce an intermediate text element that will be incorporated into 
this one. See the format of the intermediate text elements in this appendix. 


WHEN Subscript Address chain Element (if required) 


Hi 

00 

00 

00 


00 

- -1 

n 

21 i 

00 | 
i 

XX 

I 

1 

1 

00 


| 

Pointer to symbol 

Table Entry if Variable 

Subscript 

or 0 



HI 

Integer Constant to be added to Variable 1 

to compute 

Subscript 


_1 


xx - 01 indicates that the positive of the variable is to be used or no variable was 
specified. 

41 indicates that the negative of the variable is to be used (for example, x(-a)). 


TRACE SUBCOMMAND 


1 



Chain Address 



"1 

1 

1 

1 

27 

\ 

1 

xx | 

_ l 

00 

1 00 

J- _ - - - 

1 

1 

.1 

r 

_ 

00 


00 

00 

00 

1 

1 

J 

■ 

00 


00 

00 

00 

-1 

I 

1 


nn - 01 indicates that the tracing of statements is required. 
10 indicates that the tracing of functions is required. 


SET SUBCOMMAND 


SET Header Element 



Chain Address 



—— 1 

1 

4 

14 

i oo i 

• « 

s*i i 

a 

xx* 

f 

l 

a 

Pointer 

to Operandt (for the Left Side 

of the Expression) 


t 

1 

1 

Pointer 

to SET Data chain Element 



1 

i 

■ 


xx t - 80 indicates that another element is chained to this one for operand 1 (a Subscript 
Address Chain for array elements). 

40 indicates that the variable has a negative value. 

08 indicates that the variable is numeric. 

01 indicates that the pointer to operand 1 is a pointer to a symbol table entry 
(for variables and entire arrays). 

02 indicates that the pointer to operand 1 is a pointer to a constant. 

03 indicates that the pointer to operand 1 is a pointer to a subscript address 
chain (SAC) (for array elements). 

Note : These values will be combined as required. 

xx - 84 indicates that a character SET Data chain Element is present. 

8c indicates that a numeric SET Data Chain Element is present. 
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If a variable, an array name, a subscripted array element, or a numeric or character 
constant appears on the left side of the expression in a SET subcommand, the debug routines 
TCDISCAN and ICDTSCN are called to scan the item and produce an intermediate text element 
that will be incorporated into this one. see the format of the intermediate text 
elements in this appendix. 


SET Data Chain Element 

i- 1 

1 Chain Address | 

F- ~~ .. ■ i-1-1-1 

I 20 I Length | 00 | xx j 

|-1___a-1-:-1 

I I 

I-1 

| Pointer to 0perand2 (for the Right Side of the Expression) | 


Length - is the length of the variable or array element on the right side of the 
expression. 


xx t - indicates that another element is chained to this one for operand 2 (a SET 
Subscript Address Chain for array elements) . 

40 indicates that the variable has a negative value. 

08 indicates that the variable is numeric. 

01 indicates that the pointer to operand 2 is a pointer to a symbol table entry 
(for variables and entire arrays). 

02 indicates that the pointer to operand 2 is a pointer to a constant. 

0 3 indicates that the pointer to operand 2 is a pointer to a subscript address 
chain (SAC) (for array elements). 


Note : These values will be combined as required. 


If a variable, an array name, a subscripted array element, or a numeric or character 
constant appears on the right side of the expression in a SET subcommand, the debug 
routines ICDISCAN and ICDTSCN are called to scan the item and produce an intermediate 
text element that will be incorporated into this one. See the format of the intermediate 
text elements in this appendix. 


SET Subscript Address Chain Element (if required) 


1- 

00 

00 

00 


00 

HR 


21 

\ i 

I 00 | 

* l 

XX 

■ ■ i . 

i 

00 

HH 


Pointer 

to Symbol Table Entry if Variable 

Subscript 

or 0 


HH 

1_ 

Integer 

Constant to be added to Variable 

to Compute 

Subscript 


■i 


xx 


01 

indicates 

specified. 

that 

the 

positive 

of 

the 

variable 

is 

to 

be 

used 

41 

indicates 

that 

the 

negative 

of 

the 

variable 

is 

to 

be 

used 


or no variable was 
(for example, x(-a)). 
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WHERE SUBCOMMAND 


1 " 



Chain Address 




i 

_ 1 


13 

1 

. --... 

XX J 

... _ . .... ... .A 

00 

1 

1 

« 

00 

1 

1 

8 


00 


00 

00 


00 

1 

! 

1 

* 

00 


00 

00 


00 

1 

1 

----- ■ 


at • 20 indicates a statement. 

01 indicates a function. 

00 indicates a simple message. 
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: (see Image statement) 


APAR requirements 151 
ARGENTRY 106 

argument table (ARGENTRY) 106 
arithmetic interrupts 

method of operation diagram 29,30 
and VS BASIC library 
DN statement 15 

array description table (ARYDSC) 104 
array pointers table (APRPTRS) 105 
ARRBYT 29 
ARRPTRS 105 
ARYDSC 104 

ASUSRQ macro—VSPC 12 

AT subcommand 45,171 

attention interrupt (DEBUG) 42-45 


BIFTAB 126-128 
branch information table 
(BIFTAB) 126-128 

branch table—debug (FLOWCHAR) 44,45 
BUFFAHED 35 
BUFPTR 34,35 


CHAIN request processing 24,27 
CHAIN statement, object code for 154 
character conversion 

CMS file conversion 16,49 
run-time I/O 33,35 
character string functions 30 
CLOSE statement 

object code for 154 
run-time processing 32-41 
CMS command processor 12 
CMS executor differences 12,21 
CNDTRL 109 
CNOLINE 24 
COMATNTG 45 
COMATTEN 45 

common compiler routines 

(NUC/ICDJNUCL) 24,27,121 
communications region (PRG) 
format of 

compile and run-time 91-96 
compile-time only 97-99 
run-time only 100-102 
COMNEXT 45 
COMNXTPG 45 

compilation errors 14,27 
compiler 

introduction 12-14 
method of operation 19-27 
organization of 54-59 
o' erview of 23-24 


run-time initialization 24 
statement processing for 13,14,26,27 
work space (PRGA) format 91-99 
component directory 76-83 
COMREGN 42,43,129,130 
COMRUNFL 45 
COMWHNCN 42-45 
condition table (CNDTBL) 109 
CONTROL data set 11 
CONTROL file 12 

conversion utility (ICDLUTIL) 16,49 
CPMOD 12 

cross-reference directory data 
areas 133-138 

cross-reference index for diagnostic 
messages 141-147 
CURLINE 

used by deferred statement 
processing 24 

used by statement processing 
initialization 23-27 


DAIR TSO routine 10,11 
data area 

cross-reference directory 133-138 
directory 84-90 
formats of 91-132 
data conversion 
CMS file 16,49 
run-time I/O 33,35 
DATA statement 

deferred compilation for 13 
method of operation 23-24 
object code for 155 
DCB—conversion utility 49 
debug 

description of 15 
communication region 
(COMREGN) 42-45,129,130 
exception symbol table 132 
initialization 42,43 
internal text elements for 171-180 
introduction 15 
method of operation 42-45 
organization of 67-75 
statement table (STMTABLE) 131 
symbol table (ICDNAME) 132,43 
unit directory (DIR) 132 
DEF statement 

method of operation 26,27 
object code for 155 
deferred statement processing 
description of 13 
method of operation 23,24 
DELETE FILE statement 

method of operation for 36-41 
object code for 157 
DFT (temporary file table) 33 
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diagnostic aids 

diagnostic procedures 150-152 
message cross-reference 
index 141-147 
register conventions 140 
system completion codes 148,149 
diagnostic messages 141-147 
DIM statement 26 
DIMOD 12 
DIP 43,132 
directory 

data areas 84-90 
processor components 76-83 
DOS/VS differences 12 
dumps 

obtaining under DOS/VS 150 
obtaining under OS/VS 150 
obtaining under VM/370 (CMS) 150 
obtaining under VSPC 150 


EDIT command 10,20 
end of compilation 20-24 
END statement 

description of 15 
method of operation 23,24 
object code for 157 
END subcommand 45,171 
ENDRESET—stream I/O 35 
entry points 50-76 
error diagnosis 

using dumps 150 
from the terminal 152 
error handling 15,29-31 
ESPACE 

format 110-112 
in record I/O 36-41 
exception symbol table (ICDNAME) 132 
execution of code 14,20,21,29,30 
executor 

introduction 10-12 
method of operation 20,21 
organization of 50-53 
exit pointers table (EXTPTRS) 109 
EXIT statement 

deferred compilation of 13 
method of operation 23,24 
record I/O processing for 36-41 
EXTPTRS 109 
file conversion utility 
(ICDLUTIL) 16,49 
file table (FILETAB) 

used for stream I/O 32,33 
format of 113 
FILEDEF command 49 
FILETAB (see file table) 

FLOWCHAR (debug) 42-45 
FNEND statement 27 
FOR statement 24,27,157 
object code for 158 


FORM statement 

deferred compilation of 14 
method of operation 23,24 
object code for 158 
used by PRINT statement 
processing 35 
FREEMAIN macro 

used by OS/VS2(TSO) executor 11 
used by VM/370(CMS) executor 11 
function subroutines 29,30 


GET statement 

method of operation for 33 
object code for 158.1 
GETLINE service routine 10 
GETMAIN macro 

initialization for 10 
used by OS/VS executor 11 
used by VM/370(CMS) executor 11 
GO option 

used by OS/VS2(TSO) executor 10 
GOSUB statement 27 

object code for 159 
GOTO statement 27 

object code for 160 
GOTO subcommand (debug) 45,171 


HALT subcommand 45,172 
HELP subcommand 45,172 


IASYNC request 12 
IBEGIN request 12 
IBGNX request 12 
ICDADRES 67 
ICDATTN 67 
ICDATTO 45 

ICDBLDTB 14,15,29,30,43 

ICDCCHN 67 

ICDCDSCN 67 

ICDCHAIN 43 

ICDCMTBL 67 

ICDCOMR 67 

ICDDBG 42-45,67 

ICDDECHN 68 

ICDDSCAN 15,43,68 

ICDDTMSG 68 

ICDEVALU 68 

ICDFLOW 68 

ICDFOSUB 68 

ICDGOGO 45,68 

ICDHELPO 45,68 

ICDIDCHK 68 

ICDIFO 45,69 

ICDIFSCN 69 

ICDIINS1 69 

ICDISCAN 69 

ICDJAADJ 54 

ICDJALOC 54 
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ICDJCDEF 

54 

ICDJCEND 

24,54 

ICDJCHN 

54 

ICDJCLOS 

54 

ICDJCMPA 

13,24,54 

ICDJCNVT 

55 

ICDJCONF 

14,55 

ICDJCTL 

14,24,27,55 

ICDJDATA 

24,55,59 

ICDJDEFR 

14,24 

ICDJDEF1 

55 

ICDJDEF2 

55 

ICDJDIM 

55 

ICDJDIMG 

24,27,55 

ICDJEND 

55 

ICDJERR 

24,27 

ICDJERRN 

55 

ICDJERRP 

55 

ICDJERRS 

27,56 

ICDJERRT 

27,56 

ICDJEXIT 

56 

ICDJFBN1 

56 

ICDJFBN2 

56 

ICDJFCAT 

56 

ICDJFEXP 

56 

ICCJFGEN 

56 

ICDJFMLA 

14,56 

ICDJFNE1 

56 

ICDJFNE2 

56 

ICDJFOF 

56 

ICDFORM 

57 

ICDJFRM2 

57 

ICDJFRM3 

57 

ICDJFRM5 

57 

ICDJFUNY 

57 

ICDJFUTS 

27,56,77 

ICDJGET 

57 

ICDJGOSB 

57 

ICDJGOTO 

57 

ICDJIF 57 

ICDJIF1 

57 

ICDJIF2 

57 

ICDJIMAG 

57 

ICDJINFO 

57 

ICDJINPT 

57 

ICDJIOVB 

27 

ICDJLET 

57 

ICDJLINE 

27,57 

ICDJMATD 

58 

ICDJMATV 

27 

ICDJNEXT 

58 

ICDJNUCL 


format of 121 

operation 24,27 

ICDJNUC1 

59 

ICDJNUC2 

27 

ICDJNUC3 

27 

ICDJNUC4 

27 

ICDJNUC5 

27 

ICDJON 

77 

ICDJOPEN 

58 

ICDJPAUS 

58 

ICDJPRNT 

58 

ICDJPUT 

58 

ICDJRDIM 

58 

ICDJREAD 

58 


Licensed Material 


ICDJRETN 
ICDJRETV 
ICEJRSET 
ICDJRSTO 
ICDJRUNA 
ICDJSCN 
ICDJSCN1 
ICDJSCN2 
ICDJSTOP 
ICCJUSE 
ICDJUSFN 
ICDJVAL1 
ICDJVAL2 
ICDJVAL3 
ICDJVAL4 
ICDJVAL5 
ICCJVDEL 
ICDJVERB 
ICDJVRD 
ICDJVREC 
ICDJVRRD 
ICDJVRWR 
ICDJVWRT 
ICDKACS 
ICDKASN 
ICDKATN 
ICDKBFTB 
ICDKCHN 
| ICDKCHR 
ICDKCLK 
ICDKCLOS 
ICDKCNVT 
ICDKCOS 
ICDKCOT 
ICDKCPU 
ICDKCSC 
ICDKDABS 
ICDKDACS 
ICDKDAIN 
ICDKDASN 
ICDKDAT 
ICDKDATN 
ICDKDBPR 
ICDKDCOS 
ICDKDCOT 
ICDKDCSC 
ICDKDET 
ICDKDEXP 
ICDKDHCS 
ICDKDHSN 
ICDKDHTN 
ICDKDLGT 
ICDKDLOG 
ICDKKLTW 
ICDKDMAX 
ICDKDMIN 
ICDKDOT 
ICDKDPWR 
ICDKDS EC 
ICDKDSIN 
ICDKDSQR 
ICDKDSUB 
ICDKDTAN 
ICDKERR 
ICDKERRR 
ICDKERRS 
ICDKERRT 


58 

58 

58 

58 

14,24,58 

14 

59 
59 
59 

59 

27 

59 

59 

59 

59 

59 

59 

27 

59 
27 
59 
59 

59 

60 
60 
60 

60 
60 
60 
60 

33.60 

16.35.60 
60 

60 

60 

60 

60 

60 

60 

61 

61 

61 

61 

61 

61 

61 

61 

61 

61 

61 

61 

61 

61 

61 

61 

61 

61 

61 

62 

62 

62 

30 

62 

15,24,30 

62 

62 

62 
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ICDKETF2 35,62 
ICDKETOF 33,35,62 
ICDKEXF 62 
ICDKFSCN 33,37-41,62 
ICDKGET 33,63 
ICDKGSUB 30 
ICDKHCS 63 
ICDKHSN 63 
ICDKHTN 63 
ICEKIDX 63 
ICDKINPT 30,35,63 
ICDKINTP 30,52,63 
ICDKIOVB 30,33 
ICDKJDY 63 
ICDKKLN 6 3 
ICDKKPS 63 
ICDKLEN 63 
ICDK1GT 6 3 
ICLKLOG 6 3 
ICDKLTW 63 
ICDKMADD 63 
ICDKMASN 63 
ICDKMASR 63 
ICDKMAT 6 3 
ICDKMAX 63 
ICDKMDSR 64 
ICDKMIDN 64 
ICDKMIN 64 
ICDKMINV 64 
ICDKMMUL 64 
ICDKMSCA 64 
ICDKMSUB 64 
ICDKMTRN 64 
ICDKNUM 64 
ICDKON 64 
ICEKOPEN 33,64 
ICDKCPN1 64 
ICDKORGE 

and the compiler 14 
and the executor 21 
operation 29,30,43,64 


ICDKPLIN 

35,64 

ICEKPRD 

64 

ICDKPRNT 

30,35,64 

ICDKPUT 

33,64 

ICDKPWP 

64 

ICDKRDM1 

65 

ICDKRDM2 

65 

ICDKREAD 

65 

ICDKRLN 

65 

ICDKRND 

65 

ICDKRSET 

33,65 

ICDKRUNX 

65 

ICDKRUNY 

65 

ICDKSEC 

65 

ICDKSIN 

65 

ICDKSQR 

65 

ICDKSSUB 

30,65 

ICDKSUM 

65 

ICDKTAN 

65 

ICDKTIM 

65 

ICDKTIO 

66 

ICDKTOUT 

35,66 

ICDKVCLS 

35,66 

ICDKVDEL 

35,66 

ICDKVEND 

35,66 

ICDKVIOR 

30,37-41,66 
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ICDKVOPN 35,66 
ICDKVRD 35,66 
ICDKVRRD 35,66 
ICDKVRST 35,66 
ICDKVRWR 35,66 
ICDKVTIO 66 
ICDKVWRT 35,66 
ICDLBKO 45,69 
ICDLFQO 45,69 
ICDLISTO 45,69 
ICDLSSCN 45,69 
ICDLUTIL 16 
ICDMCMDS 43 
ICEMODE 43,69 
ICEMSSG 43,69 
ICDMSSGS 69 
ICDMSTND 69 
ICDMSTXT 69 

ICDNAME (see debug symbol table) 

ICDNOSTO 70 

ICDNSCAN 70 

ICDOBEY 15,43,45,70 

ICEOCMDS 43,70 

ICDOFFO 45,70 

ICDOFFWO 45,70 

ICDONITR 15,43,45,70 

ICDON02-5 71 

ICEPCLS 52 

ICDPEXEC 12,21,50,52 

ICDPGMCK 71 

ICDPMACS 71 

ICDPOPN 52 

ICDPPENT 52 

ICDPROMT 71 

ICDPRSCN 45 

ICDPSCL 45,71 

ICDPVENT 52 

ICEQEXEC 10,11,21,50-53 

ICDQRNME 16,48 

ICDQRNMS 16,48 

ICDQVCLS 52 

ICDQVDEL 52 

ICDQVENT 52 

ICDQVERR 52 

ICDQVGET 52 

ICDQVOPN 52 

ICDQVPNT 52 

ICDQVPDT 53 

ICDQZCLS 53 

ICEQZDEL 53 

ICDQZENT 53 

ICDQZERR 53 

ICEQZGET 53 

ICDQZOPN 53 

ICDQZPNT 53 

ICDQZPUT 53 

ICDREDIM 71 

ICDRUNO 45,71 

ICDSCAN 15,43,71 

ICDSCMDS 43,71 

ICDSETO 72 

ICDSSCAN 72 

ICDSSCN 72 

ICDSTBL 72 

ICDSTCNV 72 

ICDSTSCN 45,72 

ICDTBACK 72 

ICDTSCN 72 

ICDTSRCH 72 



ICDTSTYP 73 
ICDVSCN 7 3 
ICCWEXEC 12,21,50-52 
ICDWHENO 45,73 
ICDWHRO 45,73 
ICDWNSCN 73 
ICDWNTST 43,73 
ICEYEXEC 12,21,50-52 
ICDZERO 73 
ICDZEXEC 12,21,50-52 
IDCHK 75 
IEBUPDTE 16 
IF statement 27 

object code for 161 
IF subcommand 45,172 
IKJEBHPE (EDIT RENUM) 16 
image statement (:) 

deferred compilation for 14 
method of operation 23,24 
object code for 162 

used by PRINT statement processing 35 
information table (INFOTAB) 108 
initialization 

for compilation 23,24 
for debug 43,44 
for run-time 24,29,30 
for statement processing 26,27 
in-line functions 29,30 
INLIST keyword 10 
INPUT statement 27,167 
object code for 162 
INPUT FROM statement 

object code for 162.1 
input/output (run-time) 29-41 
in-storage data set 
description of 16 

used by renumbering facility 47-48 
internal text elements (debug) 171-180 
intrinsic function processing 29,30 


JCL 11,20 


LET statement 27 

object code for 163 
library 

description of 14 
method of operation 29-41 
organization of 60-66 
routines 14,15 
LINCHN 108 
line chain table 108 
line pointers table (LINPTRS) 107 
line table (LINTAB) 107 
LINPTRS 107 
LIST subcommand 45,174 
LISTBRKS subcommand 45,175 
LISTFREQ subcommand 45,175 


MAT statement 27 

object code for 163 
mathematical functions 29,30 
module directory 76-83 


Licensed Material - Property of IBM 
NEXT statement 27 

object code for 158 
NEXT subcommand 43,45,175 
NOSTORE option 10 
NUC (see common compiler routines) 
numeric conversion 33,35,62 


OBJAREA 117 
object area 117 
object code 

for CHAIN statement 154 
for CLOSE statement 154 
for DATA statement 155 
for DEF statement 156 
for DELETE FILE statement 157 
for FOR statement 157 
for FORM statement 158 
for GET statement 158 
for GOSUB statement 159 
for GO TO statement 160 
for IF statement 161 
for Image statement 162 
for INPUT FROM statement 
for LET statement 163 
for MAT statement 163-165 
for NEXT statement 157 
for ON statement 157 
for OPEN statement 167 
for PAUSE statement 165 
for PRINT statement 166 
for PRINT TO statement 
for PUT statement 166 
for READ statement 167 
for READ FILE statement 168 
for REREAD FILE statement 168 
for RESET statement 169 
for RESET FILE statement 168 
for RESTORE statement 170 
for RETURN statement 170 
for REWRITE FILE statement 169 
for STOP statement 170 
for USING statement 166 
for WRITE FILE statement 170 
OBJECT option 10,11 
OFF subcommand 45,176 
OFFWHEN subcommand 45,176 
ON statement 

object code for 165 
run-time processing for 29-31 
OPEN statement 

object code for 165 
run-time processing for 32-41 
OPTION statement 23-24 
OS/VS batch executor 11 
parameter description list (PDL) 10 
PAUSE statement 27 

object code for 166 
PDL 10 

perterm communication block (PTC) 12,20 
PRINT statement 27,34,35,166 
object code for 166 
PRINT TO statement 

object code for 166.1 
PPG (see communications region) 

PRGA (see compiler work space) 


Index 
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program organization 
compiler 54-59 
conversion utility 75 
debug 67-75 
executor 50-53 
library 60-66 
renumbering facility 75 
PTC--VSPC 12,20 
PUT statement 27,33 

object code for 166.1 
PUTGFT service routine 10 
PUTLINE service routine 10 


QUALIFY subcommand 45,176 


READ statement 27,34,35 
object code for 167 
READ FILE statement 27,36-41 
object code for 168 
reading unit records 34,35 
reading stream files 32,33 
record formats 

conversion utility 16 
renumbering facility 16 
record I/O 

file table (VFILTAB) 113 
run-time processing 36-41 
register conventions 140 
renumbering facility 
description of 16 

method of operation diagram for 47,48 
REREAD FILE statement 27,36-41 
object code for 168 
RESET FILE statement 27,36-41 
object code for 169 
RESET statement 27,32,33 
object code for 169 
resetting stream files 32,33 
RESTOPE statement 27,170 
object code for 170 
RETURN statement 27,170 
object code for 170 
returning from service calls 20,21 
REWRITE FILE statement 

I/O processing for 36-41 
object code for 170 
RUN command 

OS/VS executor 11 
OS/VS2(TSO) executor 10 
PUN subcommand 45,176 
RUNPARM 29,30 
run-time 

arithmetic interrupt handler 15,29,30 

error processing 15,29-30 

I/O processing 32-41 

overview 14-16,29,30 

service routines 15,29,30 

unit record I/O (see terminal I/O) 


scan phase (debug) 15,32-45 
SERV (see SVC0-SVC26) 

service call request processing 11,12,19-21 
service and utility routines 13 
SET subcommand 45,178 
SIZE option 10,11 


source option 10,11 
source statements 
code for 14 

initialization for 23-27 
format of 10 

special purpose routines 11 
SPIE macro 10 
SPIEEXIT 11,50 
STAE macro 10 
STAEXIT 11,50 
statement processing 
by compiler 13,23-27 
by debug 15,42-45 

statement table (STMTABLE) 42,43,131 

STAX macro 11 

STAXEXIT 11,50 

STIMEP macro 10 

STMTABLE (see statement table) 

STOP statement 15,27,170 
object code for 170. 1 
stream input/output 32,33 
subcommand scanning 42-45 
subcommand execution 42-45 
SVC (SERV) macros 11 
SVCPET 11,50 
SVC0 11,21,27,50 
SVC1 11,35,51 
SVC2 11,35,51 

SVC3 11,33,51 

SVC4 11,33,51 

SVC5 11,24,51 
SVC6 11,30,51 

SVC7 11,51 
SVC8 11,30,51 

SVC9 11,51 
SVC 10 11,33,51 

SVC11 11,21,24,51 
SVC12 11,51 

SVC13 11,35,51 

SVC 14 11,35,51 

SVC16 11,30,51 

SVC18 11,51 

SVC21 11,33,51 
SVC22 11,33,51 
SVC23 11,21,30,52 
SVC24 11,52 
SVC25 11,52 
SVC26 11,52 
symbol table 132 
SYSIPT 12 
SYSLST 12 
SYSPCH 12 
SYSPRINT 11 

system completion codes 148,149 


temporary DFT 32,33 
terminal input/output 34,35 
terminal file 

implicit open for 41,66 
TEST option 

code for 14,15 

used by debug processing 15,42-45 
used by statement processing 
initialization 26-27 
tables for 14 
TIME macro 10 
TINPUT 52 
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TOUTPUT 10,52 

TRACE subcommand 45,178 

trace table (debug) 42-45 

TSO DAIP routine 10 

TSO EDIT command processor 10 

TSO executor 11 

TSO ITF BASIC data sets 16 

TSO terminal monitor program 10 


UF.UN table 99 

unit record input/output (see terminal I/O) 
USE 29,30 

USING statement (with PRINT) 27,36-41,166 
user area 12-14,20,21 
user function table (UFUN) 104 
user I/O exit processing 36-41 
user terminal table (UTT) 
format of 103 
initialization for 10,20,21 


variable and constant area 
(VARCON) 13,23,24,115 
VBTAB 23-27 
VFILTAB 36-41,113 
VSAM 

restriction on (CMS) 11 
(see record I/O) 

VS BASIC compiler 

initialization of 12 
method of operation 23-27 
operation of 12-14 
organization of 54-59 
run-time, initialization for 14 
statement processing by 13,26,27 
VS BASIC Debug 

description of 15 
method of operation 42-45 
organization of 67-75 
VS BASIC library 

description of 14 
method of operation 30-4 1 
organization of 60-66 
VSPC executor 12,19-21 
(see also TSO executor) 

VS Personal Computing (see VSPC executor) 
VSPC file I/O (see record I/C) 


WHEN subcommand 42-45,177 
WHERE su bcommand 45,181 
workspace relocation—VSPC 12,21 
WRITE statement 27,36-41,170 


Z#UTT (see user terminal table) 
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